Changeset 1983 for trunk/LMDZ.MARS/libf/phymars/callsedim_mod.F

Timestamp:

Aug 1, 2018, 3:35:24 PM (6 years ago)

Author:

mvals

Message:

Mars GCM:
Cosmetic/practical changes:

• swmain and lwmain become modules swmain_mod, lwmain_mod
• Addition of the intent in/out characteristics of variables in swmain_mod and lwmain_mod subroutines

Correction:

• in callsedim_mod, declaration of variable tau(ngrid,nlay) corrected to tau(ngrid,naerkind)

MV

File:

• trunk/LMDZ.MARS/libf/phymars/callsedim_mod.F (modified) (2 diffs)

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

@@ -22 +22 @@
       USE newsedim_mod, ONLY: newsedim
       USE comcstfi_h, ONLY: g
+      USE dimradmars_mod, only: naerkind
       IMPLICIT NONE
 
@@ -74 +75 @@
       real,intent(out) :: pdqs_sed(ngrid,nq)    ! flux at surface (kg.m-2.s-1)
       integer,intent(in) :: nq  ! number of tracers
-      real,intent(in) :: tau(ngrid,nlay) ! dust opacity
+      real,intent(in) :: tau(ngrid,naerkind) ! dust opacity
       real,intent(in) :: tauscaling(ngrid)