Changeset 1976
- Timestamp:
- Jul 19, 2018, 6:08:17 PM (6 years ago)
- Location:
- trunk/LMDZ.MARS
- Files:
-
- 3 edited
-
README (modified) (1 diff)
-
libf/phymars/improvedclouds_mod.F (modified) (1 diff)
-
libf/phymars/watercloud_mod.F (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
trunk/LMDZ.MARS/README
r1974 r1976 2618 2618 Still experimental, default behaviour (rdstorm=.false., dustinjection=0) identical to previous revision. 2619 2619 NB: Updated newstart requires an updated "surface.nc" containing the "hmons" field. 2620 2621 == 19/07/2018 == MV 2622 Cosmetic/practical changes: 2623 - Addition of the intent in/out characteristics of variables in watercloud_mod and improvedclouds_mod subroutines -
trunk/LMDZ.MARS/libf/phymars/improvedclouds_mod.F
r1963 r1976 44 44 #include "microphys.h" 45 45 c------------------------------------------------------------------ 46 c Inputs: 47 48 INTEGER ngrid,nlay 49 integer nq ! nombre de traceurs 50 REAL microtimestep ! pas de temps physique (s) 51 REAL pplay(ngrid,nlay) ! pression au milieu des couches (Pa) 52 53 REAL pteff(ngrid,nlay) ! temperature at the middle of the 54 ! layers (K) 55 REAL sum_subpdt(ngrid,nlay) ! tendance temperature des autres 56 ! param. 57 REAL pqeff(ngrid,nlay,nq) ! traceur (kg/kg) 58 REAL sum_subpdq(ngrid,nlay,nq) ! tendance avant condensation 59 ! (kg/kg.s-1) 60 REAL tauscaling(ngrid) ! Convertion factor for qdust and Ndust 61 62 c Outputs: 63 REAL subpdqcloud(ngrid,nlay,nq) ! tendance de la condensation 64 ! H2O(kg/kg.s-1) 65 REAL subpdtcloud(ngrid,nlay) ! tendance temperature due 66 ! a la chaleur latente 46 c Inputs/outputs: 47 48 INTEGER, INTENT(IN) :: ngrid,nlay 49 INTEGER, INTENT(IN) :: nq ! nombre de traceurs 50 REAL, INTENT(IN) :: microtimestep ! pas de temps physique (s) 51 REAL, INTENT(IN) :: pplay(ngrid,nlay) ! pression au milieu des couches (Pa) 52 REAL, INTENT(IN) :: pteff(ngrid,nlay) ! temperature at the middle of the 53 ! layers (K) 54 REAL, INTENT(IN) :: sum_subpdt(ngrid,nlay)! tendance temperature des autres 55 ! param. 56 REAL, INTENT(IN) :: pqeff(ngrid,nlay,nq) ! traceur (kg/kg) 57 REAL, INTENT(IN) :: sum_subpdq(ngrid,nlay,nq) ! tendance avant condensation 58 ! (kg/kg.s-1) 59 REAL, INTENT(IN) :: tauscaling(ngrid) ! Convertion factor for qdust and Ndust 60 61 REAL, INTENT(OUT) :: subpdqcloud(ngrid,nlay,nq) ! tendance de la condensation 62 ! H2O(kg/kg.s-1) 63 REAL, INTENT(OUT) :: subpdtcloud(ngrid,nlay) ! tendance temperature due 64 ! a la chaleur latente 67 65 68 66 c------------------------------------------------------------------ -
trunk/LMDZ.MARS/libf/phymars/watercloud_mod.F
r1969 r1976 44 44 include "callkeys.h" 45 45 46 c Inputs :46 c Inputs/outputs: 47 47 c ------ 48 48 49 INTEGER ngrid,nlay 50 INTEGER nq ! nombre de traceurs 51 REAL ptimestep ! pas de temps physique (s) 52 REAL pplev(ngrid,nlay+1) ! pression aux inter-couches (Pa) 53 REAL pplay(ngrid,nlay) ! pression au milieu des couches (Pa) 54 REAL pdpsrf(ngrid) ! tendence surf pressure 55 REAL pzlay(ngrid,nlay) ! altitude at the middle of the layers 56 REAL pt(ngrid,nlay) ! temperature at the middle of the layers (K) 57 REAL pdt(ngrid,nlay) ! tendence temperature des autres param. 58 59 real pq(ngrid,nlay,nq) ! traceur (kg/kg) 60 real pdq(ngrid,nlay,nq) ! tendence avant condensation (kg/kg.s-1) 61 62 REAL tau(ngrid,naerkind) ! Column dust optical depth at each point 63 REAL tauscaling(ngrid) ! Convertion factor for dust amount 64 real rdust(ngrid,nlay) ! Dust geometric mean radius (m) 65 66 c Outputs: 67 c ------- 68 69 real pdqcloud(ngrid,nlay,nq) ! tendence de la condensation H2O(kg/kg.s-1) 70 REAL pdtcloud(ngrid,nlay) ! tendence temperature due 49 INTEGER, INTENT(IN) :: ngrid,nlay 50 INTEGER, INTENT(IN) :: nq ! nombre de traceurs 51 REAL, INTENT(IN) :: ptimestep ! pas de temps physique (s) 52 REAL, INTENT(IN) :: pplev(ngrid,nlay+1) ! pression aux inter-couches (Pa) 53 REAL, INTENT(IN) :: pplay(ngrid,nlay) ! pression au milieu des couches (Pa) 54 REAL, INTENT(IN) :: pdpsrf(ngrid) ! tendence surf pressure 55 REAL, INTENT(IN) :: pzlay(ngrid,nlay) ! altitude at the middle of the layers 56 REAL, INTENT(IN) :: pt(ngrid,nlay) ! temperature at the middle of the layers (K) 57 REAL, INTENT(IN) :: pdt(ngrid,nlay) ! tendence temperature des autres param. 58 59 REAL, INTENT(IN) :: pq(ngrid,nlay,nq) ! traceur (kg/kg) 60 rEAL, INTENT(IN) :: pdq(ngrid,nlay,nq) ! tendence avant condensation (kg/kg.s-1) 61 62 REAL, INTENT(IN) :: tau(ngrid,naerkind) ! Column dust optical depth at each point 63 REAL, INTENT(IN) :: tauscaling(ngrid) ! Convertion factor for dust amount 64 REAL, INTENT(INOUT) :: rdust(ngrid,nlay) ! Dust geometric mean radius (m) 65 66 REAL, INTENT(OUT) :: pdqcloud(ngrid,nlay,nq) ! tendence de la condensation H2O(kg/kg.s-1) 67 REAL, INTENT(OUT) :: pdtcloud(ngrid,nlay) ! tendence temperature due 71 68 ! a la chaleur latente 72 73 REAL rice(ngrid,nlay) ! Ice mass mean radius (m) 69 REAL, INTENT(INOUT) :: rice(ngrid,nlay) ! Ice mass mean radius (m) 74 70 ! (r_c in montmessin_2004) 75 REAL nuice(ngrid,nlay) ! Estimated effective variance71 REAL, INTENT(OUT) :: nuice(ngrid,nlay) ! Estimated effective variance 76 72 ! of the size distribution 77 realrsedcloud(ngrid,nlay) ! Cloud sedimentation radius78 realrhocloud(ngrid,nlay) ! Cloud density (kg.m-3)73 REAL, INTENT(OUT) :: rsedcloud(ngrid,nlay) ! Cloud sedimentation radius 74 REAL, INTENT(OUT) :: rhocloud(ngrid,nlay) ! Cloud density (kg.m-3) 79 75 80 76 REAL, INTENT(INOUT):: totcloudfrac(ngrid) ! Cloud fraction (A. Pottier 2013) 81 c local: 77 78 c Locals: 82 79 c ------ 83 80 84 81 ! for ice radius computation 85 82 REAL Mo,No
Note: See TracChangeset
for help on using the changeset viewer.
