Changeset 1976 for trunk/LMDZ.MARS/libf/phymars/improvedclouds_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/improvedclouds_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------------------------------------------------------------------