Mercurial > hgweb > burst-coupling
changeset 60:65d058ddf694
Added intent(in/out) and removed redundant 'implicit none's.
author | Marco van Hulten <marco@hulten.org> |
---|---|
date | Thu, 07 Feb 2019 13:17:55 +0100 |
parents | 5961380e5826 |
children | eed43d1dbdcd |
files | bodensed.F90 hamocc2micom.F micom2hamocc.F mo_sedmnt_offline.F90 trc_limitc.F |
diffstat | 5 files changed, 8 insertions(+), 11 deletions(-) [+] |
line wrap: on
line diff
--- a/bodensed.F90 Wed Jan 30 15:49:40 2019 +0100 +++ b/bodensed.F90 Thu Feb 07 13:17:55 2019 +0100 @@ -56,9 +56,10 @@ implicit none - REAL :: pddpo(kpie,kpje,kpke) - REAL :: sumsed - INTEGER :: kpie,kpje,kpke,i,j,k + integer, intent(in) :: kpie,kpje,kpke + real, intent(in) :: pddpo(kpie,kpje,kpke) + integer :: i,j,k + real :: sumsed if (lspinning_up_sed) then dtsed = dtoff
--- a/hamocc2micom.F Wed Jan 30 15:49:40 2019 +0100 +++ b/hamocc2micom.F Thu Feb 07 13:17:55 2019 +0100 @@ -33,7 +33,7 @@ #include "common_bgcs.h" #include "common_forc.h" c - integer :: m,n,mm,nn + integer, intent(in) :: m,n,mm,nn c integer :: i,j,k,l,nns,mms,kn,km c
--- a/micom2hamocc.F Wed Jan 30 15:49:40 2019 +0100 +++ b/micom2hamocc.F Thu Feb 07 13:17:55 2019 +0100 @@ -31,7 +31,7 @@ #include "common_seaice.h" #include "common_bgcs.h" c - integer :: m,n,mm,nn + integer, intent(in) :: m,n,mm,nn integer :: i,j,k,l,nns,kn real :: p1,p2,ldp,th,s,pa
--- a/mo_sedmnt_offline.F90 Wed Jan 30 15:49:40 2019 +0100 +++ b/mo_sedmnt_offline.F90 Thu Feb 07 13:17:55 2019 +0100 @@ -507,7 +507,7 @@ end subroutine sedmnt_offline subroutine alloc_mem_sedmnt_offline(kpie, kpje) - integer :: kpie, kpje + integer, intent(in) :: kpie, kpje integer :: errstat, iounit logical :: isopen, exists @@ -815,8 +815,6 @@ use mo_bgcmean , only: inisdm, inibur, accsdm, accbur, wrtsdm, wrtbur, logsdm -implicit none - !#include "common_clndr.h90" #include "common_blocks.h90" @@ -960,8 +958,6 @@ subroutine vardef_onlysed(iogrp,timeunits,calendar,cmpflg) -implicit none - integer iogrp,cmpflg character timeunits*30,calendar*19