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
 
--- a/trc_limitc.F	Wed Jan 30 15:49:40 2019 +0100
+++ b/trc_limitc.F	Thu Feb 07 13:17:55 2019 +0100
@@ -27,7 +27,7 @@
 #include "common_trc.h"
 #include "common_blocks.h"
 c
-      integer       :: nn
+      integer, intent(in) :: nn
       integer       :: i,j,l,nt,kn
       real          :: trbudo(ntrbgc),trbudn,q
 c