Changeset 4133 for LMDZ6/trunk/libf/phylmd/thermcell_dq.F90

Timestamp:

Apr 20, 2022, 11:44:24 PM (2 years ago)

Author:

fhourdin

Message:

Corrections thermiques pour replay

File:

• LMDZ6/trunk/libf/phylmd/thermcell_dq.F90 (modified) (3 diffs)

LMDZ6/trunk/libf/phylmd/thermcell_dq.F90

@@ -17 +17 @@
 !=======================================================================
 
-      integer ngrid,nlay,impl
-
-      real ptimestep
-      real masse(ngrid,nlay),fm(ngrid,nlay+1)
-      real entr(ngrid,nlay)
-      real q(ngrid,nlay)
-      real dq(ngrid,nlay)
-      integer lev_out                           ! niveau pour les print
-
-      real qa(ngrid,nlay),detr(ngrid,nlay),wqd(ngrid,nlay+1)
-
+! arguments
+      integer, intent(in) :: ngrid,nlay,impl
+      real, intent(in) :: ptimestep
+      real, intent(in), dimension(ngrid,nlay) :: masse
+      real, intent(inout), dimension(ngrid,nlay) :: entr,q
+      real, intent(in), dimension(ngrid,nlay+1) :: fm
+      real, intent(out), dimension(ngrid,nlay) :: dq,qa
+      integer, intent(in) :: lev_out                           ! niveau pour les print
+
+! Local
+      real, dimension(ngrid,nlay) :: detr,qold
+      real, dimension(ngrid,nlay+1) :: wqd,fqa
       real zzm
-
       integer ig,k
       real cfl
 
-      real qold(ngrid,nlay),fqa(ngrid,nlay+1)
       integer niter,iter
       CHARACTER (LEN=20) :: modname='thermcell_dq'
@@ -43 +42 @@
          call thermcell_dq_o(ngrid,nlay,impl,ptimestep,fm,entr,  &
      &           masse,q,dq,qa,lev_out)
-         return
+         goto 1000
       endif
 
@@ -143 +142 @@
       enddo
 
-return
+1000 continue
+ RETURN
 end