Changeset 1983
- Timestamp:
- Aug 1, 2018, 3:35:24 PM (6 years ago)
- Location:
- trunk/LMDZ.MARS
- Files:
-
- 3 edited
- 2 moved
-
README (modified) (1 diff)
-
libf/phymars/callradite_mod.F (modified) (1 diff)
-
libf/phymars/callsedim_mod.F (modified) (2 diffs)
-
libf/phymars/lwmain_mod.F (moved) (moved from trunk/LMDZ.MARS/libf/phymars/lwmain.F) (5 diffs)
-
libf/phymars/swmain_mod.F (moved) (moved from trunk/LMDZ.MARS/libf/phymars/swmain.F) (4 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/LMDZ.MARS/README
r1977 r1983 2626 2626 Update xvik.F main program to work with current diagfi outputs. 2627 2627 2628 == 01/08/2018 == MV 2629 Cosmetic/practical changes: 2630 - swmain and lwmain become modules swmain_mod, lwmain_mod 2631 - Addition of the intent in/out characteristics of variables in swmain_mod and lwmain_mod subroutines 2632 Correction: 2633 - in callsedim_mod, declaration of variable tau(ngrid,nlay) corrected to tau(ngrid,naerkind) -
trunk/LMDZ.MARS/libf/phymars/callradite_mod.F
r1974 r1983 23 23 use comcstfi_h, only: g,cpp 24 24 use time_phylmdz_mod, only: daysec 25 use lwmain_mod, only: lwmain 26 use swmain_mod, only: swmain 25 27 IMPLICIT NONE 26 28 c======================================================================= -
trunk/LMDZ.MARS/libf/phymars/callsedim_mod.F
r1974 r1983 22 22 USE newsedim_mod, ONLY: newsedim 23 23 USE comcstfi_h, ONLY: g 24 USE dimradmars_mod, only: naerkind 24 25 IMPLICIT NONE 25 26 … … 74 75 real,intent(out) :: pdqs_sed(ngrid,nq) ! flux at surface (kg.m-2.s-1) 75 76 integer,intent(in) :: nq ! number of tracers 76 real,intent(in) :: tau(ngrid,n lay) ! dust opacity77 real,intent(in) :: tau(ngrid,naerkind) ! dust opacity 77 78 real,intent(in) :: tauscaling(ngrid) 78 79 -
trunk/LMDZ.MARS/libf/phymars/lwmain_mod.F
r1982 r1983 1 MODULE lwmain_mod 2 3 IMPLICIT NONE 4 5 CONTAINS 6 1 7 subroutine lwmain (ig0,icount,kdlon,kflev 2 8 . ,dp,dt0,emis … … 16 22 use yomlw_h, only: nlaylte, xi 17 23 implicit none 18 19 #include "callkeys.h" 20 #include "comg1d.h" 24 25 c declarations 26 c ------------- 27 include "callkeys.h" 28 include "comg1d.h" 21 29 22 30 c---------------------------------------------------------------------- 23 31 c 0.1 arguments 24 32 c --------- 25 c inputs:26 c 27 integer ig028 integer icount29 integer kdlon ! part of ngrid30 integer kflev ! part of nlayer31 32 real dp (ndlo2,kflev) ! layer pressure thickness (Pa)33 real dt0 (ndlo2) ! surface temperature discontinuity (K)34 real emis (ndlo2) ! surface emissivity35 real plev (ndlo2,kflev+1) ! level pressure (Pa)36 real tlev (ndlo2,kflev+1) ! level temperature (K)37 real tlay (ndlo2,kflev) ! layer temperature (K)38 real aerosol(ndlo2,kflev,naerkind) ! aerosol extinction optical33 c inputs/outputs: 34 c ------- 35 integer, intent(in) :: ig0 36 integer, intent(in) :: icount 37 integer, intent(in) :: kdlon ! part of ngrid 38 integer, intent(in) :: kflev ! part of nlayer 39 40 real, intent(in) :: dp (ndlo2,kflev) ! layer pressure thickness (Pa) 41 real, intent(in) :: dt0 (ndlo2) ! surface temperature discontinuity (K) 42 real, intent(in) :: emis (ndlo2) ! surface emissivity 43 real, intent(in) :: plev (ndlo2,kflev+1) ! level pressure (Pa) 44 real, intent(in) :: tlev (ndlo2,kflev+1) ! level temperature (K) 45 real, intent(in) :: tlay (ndlo2,kflev) ! layer temperature (K) 46 real, intent(in) :: aerosol(ndlo2,kflev,naerkind) ! aerosol extinction optical 39 47 c depth at reference wavelength "longrefvis" set 40 48 c in dimradmars_mod , in each layer, for one of … … 44 52 c outputs: 45 53 c -------- 46 real coolrate(ndlo2,kflev) ! cooling rate (K/s)47 real fluxground(ndlo2) ! downward ground flux (W/m2)48 real fluxtop(ndlo2) ! outgoing upward flux (W/m2) ("OLR")49 real netrad (ndlo2,kflev) ! radiative budget (W/m2)54 real, intent(out) :: coolrate(ndlo2,kflev) ! cooling rate (K/s) 55 real, intent(out) :: fluxground(ndlo2) ! downward ground flux (W/m2) 56 real, intent(out) :: fluxtop(ndlo2) ! outgoing upward flux (W/m2) ("OLR") 57 real, intent(out) :: netrad (ndlo2,kflev) ! radiative budget (W/m2) 50 58 c Aerosol optical properties 51 REAL:: QIRsQREF3d(ndlo2,kflev,nir,naerkind)52 REAL:: omegaIR3d(ndlo2,kflev,nir,naerkind)53 REAL:: gIR3d(ndlo2,kflev,nir,naerkind)54 59 real, intent(in) :: QIRsQREF3d(ndlo2,kflev,nir,naerkind) 60 real, intent(in) :: omegaIR3d(ndlo2,kflev,nir,naerkind) 61 real, intent(in) :: gIR3d(ndlo2,kflev,nir,naerkind) 62 real, intent(in) :: co2ice(ndlo2) ! co2 ice surface layer (kg.m-2) 55 63 c---------------------------------------------------------------------- 56 64 c 0.2 local arrays … … 75 83 real newcoolrate(ndlon,nflev) ! cooling rate (K/s) / with implicite scheme 76 84 77 REAL co2ice(ndlo2) ! co2 ice surface layer (kg.m-2) 78 REAL emis_gaz(ndlo2) ! emissivity for gaz computations 85 real emis_gaz(ndlo2) ! emissivity for gaz computations 79 86 80 87 integer jk,jkk,ja,jl … … 193 200 c---------------------------------------------------------------------- 194 201 195 return 196 end 202 END SUBROUTINE lwmain 203 204 END MODULE lwmain_mod 205 -
trunk/LMDZ.MARS/libf/phymars/swmain_mod.F
r1982 r1983 1 MODULE swmain_mod 2 3 IMPLICIT NONE 4 5 CONTAINS 6 1 7 SUBROUTINE SWMAIN ( KDLON, KFLEV, 2 8 $ PCST, albedo, … … 9 15 use yomlw_h, only: nlaylte, gcp 10 16 IMPLICIT NONE 11 12 #include "callkeys.h" 17 18 c DECLARATIONS 19 c ------------- 20 include "callkeys.h" 13 21 c 14 22 c PURPOSE. … … 59 67 C ARGUMENTS 60 68 C --------- 69 c INPUTS/OUTPUTS: 70 c --------- 61 71 62 INTEGER KDLON, KFLEV63 REAL ZPSOL(NDLO2),aerosol(NDLO2,KFLEV,naerkind),PRMU0(NDLO2)64 realPCST65 REAL albedo(NDLO2,2)66 REAL PDP(NDLO2,KFLEV)67 REAL PPLEV(NDLO2,KFLEV+1)68 REAL PHEAT(NDLO2,KFLEV)69 REAL PFRACT(NDLO2)70 realPFLUXD(NDLON,NFLEV+1,2)71 realPFLUXU(NDLON,NFLEV+1,2)72 REAL :: QVISsQREF3d(NDLO2,KFLEV,nsun,naerkind)73 REAL :: omegaVIS3d(NDLO2,KFLEV,nsun,naerkind)74 REAL :: gVIS3d(NDLO2,KFLEV,nsun,naerkind)72 INTEGER, iNTENT(IN) :: KDLON, KFLEV 73 REAL, iNTENT(IN) :: aerosol(NDLO2,KFLEV,naerkind),PRMU0(NDLO2) 74 REAL, iNTENT(IN) :: PCST 75 REAL, iNTENT(IN) :: albedo(NDLO2,2) 76 REAL, iNTENT(IN) :: PDP(NDLO2,KFLEV) 77 REAL, iNTENT(IN) :: PPLEV(NDLO2,KFLEV+1) 78 REAL, iNTENT(OUT) :: PHEAT(NDLO2,KFLEV) 79 REAL, iNTENT(IN) :: PFRACT(NDLO2) 80 REAL, iNTENT(OUT) :: PFLUXD(NDLON,NFLEV+1,2) 81 REAL, iNTENT(OUT) :: PFLUXU(NDLON,NFLEV+1,2) 82 REAL, iNTENT(IN) :: QVISsQREF3d(NDLO2,KFLEV,nsun,naerkind) 83 REAL, iNTENT(IN) :: omegaVIS3d(NDLO2,KFLEV,nsun,naerkind) 84 REAL, iNTENT(IN) :: gVIS3d(NDLO2,KFLEV,nsun,naerkind) 75 85 76 86 C LOCAL ARRAYS 77 87 C ------------ 78 88 REAL ZPSOL(NDLO2) 79 89 REAL ZDSIG(NDLON,NFLEV), ZFACT(NDLON) 80 90 S , ZFD(NDLON,NFLEV+1) … … 183 193 END DO 184 194 185 RETURN 186 END 195 END SUBROUTINE SWMAIN 196 197 END MODULE swmain_mod
Note: See TracChangeset
for help on using the changeset viewer.
