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

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

Location:

trunk/LMDZ.MARS/libf/phymars

Files:

• improvedclouds_mod.F (modified) (1 diff)
• watercloud_mod.F (modified) (1 diff)

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

@@ -44 +44 @@
 #include "microphys.h"
 c------------------------------------------------------------------
-c     Inputs:
-
-      INTEGER ngrid,nlay
-      integer nq                 ! nombre de traceurs
-      REAL microtimestep             ! pas de temps physique (s)
-      REAL pplay(ngrid,nlay)     ! pression au milieu des couches (Pa)
-            
-      REAL pteff(ngrid,nlay)        ! temperature at the middle of the
-                                 !   layers (K)
-      REAL sum_subpdt(ngrid,nlay)       ! tendance temperature des autres
-                                 !   param.
-      REAL pqeff(ngrid,nlay,nq)     ! traceur (kg/kg)
-      REAL sum_subpdq(ngrid,nlay,nq)    ! tendance avant condensation
-                                 !   (kg/kg.s-1)
-      REAL tauscaling(ngrid)     ! Convertion factor for qdust and Ndust
-
-c     Outputs:
-      REAL subpdqcloud(ngrid,nlay,nq) ! tendance de la condensation
-                                   !   H2O(kg/kg.s-1)
-      REAL subpdtcloud(ngrid,nlay)    ! tendance temperature due
-                                   !   a la chaleur latente
+c     Inputs/outputs:
+
+      INTEGER, INTENT(IN) :: ngrid,nlay
+      INTEGER, INTENT(IN) :: nq                 ! nombre de traceurs
+      REAL, INTENT(IN) :: microtimestep         ! pas de temps physique (s)
+      REAL, INTENT(IN) :: pplay(ngrid,nlay)     ! pression au milieu des couches (Pa)            
+      REAL, INTENT(IN) :: pteff(ngrid,nlay)     ! temperature at the middle of the
+                                                ! layers (K)
+      REAL, INTENT(IN) :: sum_subpdt(ngrid,nlay)! tendance temperature des autres
+                                                !   param.
+      REAL, INTENT(IN) :: pqeff(ngrid,nlay,nq)  ! traceur (kg/kg)
+      REAL, INTENT(IN) :: sum_subpdq(ngrid,nlay,nq)    ! tendance avant condensation
+                                                       !   (kg/kg.s-1)
+      REAL, INTENT(IN) :: tauscaling(ngrid)     ! Convertion factor for qdust and Ndust
+      
+      REAL, INTENT(OUT) :: subpdqcloud(ngrid,nlay,nq)  ! tendance de la condensation
+                                                       !   H2O(kg/kg.s-1)
+      REAL, INTENT(OUT) :: subpdtcloud(ngrid,nlay)     ! tendance temperature due
+                                                       !   a la chaleur latente
 
 c------------------------------------------------------------------

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