Changeset 1976 for trunk/LMDZ.MARS/libf/phymars/watercloud_mod.F

Timestamp:

Jul 19, 2018, 6:08:17 PM (6 years ago)

Author:

mvals

Message:

Mars GCM:
Cosmetic/practical changes:

• Addition of the intent in/out characteristics of variables in watercloud_mod and improvedclouds_mod subroutines

MV

File:

• trunk/LMDZ.MARS/libf/phymars/watercloud_mod.F (modified) (1 diff)

trunk/LMDZ.MARS/libf/phymars/watercloud_mod.F

@@ -44 +44 @@
       include "callkeys.h"
 
-c   Inputs:
+c   Inputs/outputs:
 c   ------
 
-      INTEGER ngrid,nlay
-      INTEGER nq                 ! nombre de traceurs 
-      REAL ptimestep             ! pas de temps physique (s)
-      REAL pplev(ngrid,nlay+1)   ! pression aux inter-couches (Pa)
-      REAL pplay(ngrid,nlay)     ! pression au milieu des couches (Pa)
-      REAL pdpsrf(ngrid)         ! tendence surf pressure
-      REAL pzlay(ngrid,nlay)     ! altitude at the middle of the layers
-      REAL pt(ngrid,nlay)        ! temperature at the middle of the layers (K)
-      REAL pdt(ngrid,nlay)       ! tendence temperature des autres param.
-
-      real pq(ngrid,nlay,nq)     ! traceur (kg/kg)
-      real pdq(ngrid,nlay,nq)    ! tendence avant condensation  (kg/kg.s-1)
-
-      REAL tau(ngrid,naerkind) ! Column dust optical depth at each point
-      REAL tauscaling(ngrid)   ! Convertion factor for dust amount
-      real rdust(ngrid,nlay)   ! Dust geometric mean radius (m)
-
-c   Outputs:
-c   -------
-
-      real pdqcloud(ngrid,nlay,nq) ! tendence de la condensation H2O(kg/kg.s-1)
-      REAL pdtcloud(ngrid,nlay)    ! tendence temperature due
+      INTEGER, INTENT(IN) :: ngrid,nlay
+      INTEGER, INTENT(IN) ::  nq                 ! nombre de traceurs 
+      REAL, INTENT(IN) ::  ptimestep             ! pas de temps physique (s)
+      REAL, INTENT(IN) ::  pplev(ngrid,nlay+1)   ! pression aux inter-couches (Pa)
+      REAL, INTENT(IN) ::  pplay(ngrid,nlay)     ! pression au milieu des couches (Pa)
+      REAL, INTENT(IN) ::  pdpsrf(ngrid)         ! tendence surf pressure
+      REAL, INTENT(IN) ::  pzlay(ngrid,nlay)     ! altitude at the middle of the layers
+      REAL, INTENT(IN) ::  pt(ngrid,nlay)        ! temperature at the middle of the layers (K)
+      REAL, INTENT(IN) ::  pdt(ngrid,nlay)       ! tendence temperature des autres param.
+
+      REAL, INTENT(IN) ::  pq(ngrid,nlay,nq)     ! traceur (kg/kg)
+      rEAL, INTENT(IN) ::  pdq(ngrid,nlay,nq)    ! tendence avant condensation  (kg/kg.s-1)
+
+      REAL, INTENT(IN) ::  tau(ngrid,naerkind) ! Column dust optical depth at each point
+      REAL, INTENT(IN) ::  tauscaling(ngrid)   ! Convertion factor for dust amount
+      REAL, INTENT(INOUT) ::  rdust(ngrid,nlay)   ! Dust geometric mean radius (m)
+
+      REAL, INTENT(OUT) ::  pdqcloud(ngrid,nlay,nq) ! tendence de la condensation H2O(kg/kg.s-1)
+      REAL, INTENT(OUT) ::  pdtcloud(ngrid,nlay)    ! tendence temperature due
                                    ! a la chaleur latente
-
-      REAL rice(ngrid,nlay)    ! Ice mass mean radius (m)
+      REAL, INTENT(INOUT) ::  rice(ngrid,nlay)    ! Ice mass mean radius (m)
                                ! (r_c in montmessin_2004)
-      REAL nuice(ngrid,nlay)   ! Estimated effective variance
+      REAL, INTENT(OUT) ::  nuice(ngrid,nlay)   ! Estimated effective variance
                                !   of the size distribution
-      real rsedcloud(ngrid,nlay) ! Cloud sedimentation radius
-      real rhocloud(ngrid,nlay)  ! Cloud density (kg.m-3)
+      REAL, INTENT(OUT) ::  rsedcloud(ngrid,nlay) ! Cloud sedimentation radius
+      REAL, INTENT(OUT) ::  rhocloud(ngrid,nlay)  ! Cloud density (kg.m-3)
 
       REAL, INTENT(INOUT):: totcloudfrac(ngrid) ! Cloud fraction (A. Pottier 2013)
-c   local:
+      
+c   Locals:
 c   ------
-      
+  
       ! for ice radius computation
       REAL Mo,No