Changeset 1579 for LMDZ5/trunk/libf/phylmd/traclmdz_mod.F90

Timestamp:

Nov 4, 2011, 10:21:24 PM (13 years ago)

Author:

jghattas

Message:

Added latitudes and longitudes in traclmdz_init to simplify initialization of new tracers.

File:

• LMDZ5/trunk/libf/phylmd/traclmdz_mod.F90 (modified) (2 diffs)

LMDZ5/trunk/libf/phylmd/traclmdz_mod.F90

@@ -84 +84 @@
 
 
-  SUBROUTINE traclmdz_init(pctsrf, ftsol, tr_seri, t_seri, pplay, sh, pdtphys, aerosol, lessivage)
+  SUBROUTINE traclmdz_init(pctsrf, xlat, xlon, ftsol, tr_seri, t_seri, pplay, sh, pdtphys, aerosol, lessivage)
     ! This subroutine allocates and initialize module variables and control variables.
     ! Initialization of the tracers should be done here only for those not found in the restart file.
@@ -99 +99 @@
 ! Input variables
     REAL,DIMENSION(klon,nbsrf),INTENT(IN)     :: pctsrf ! Pourcentage de sol f(nature du sol)
+    REAL,DIMENSION(klon),INTENT(IN)           :: xlat   ! latitudes en degres pour chaque point 
+    REAL,DIMENSION(klon),INTENT(IN)           :: xlon   ! longitudes en degres pour chaque point 
     REAL,DIMENSION(klon,nbsrf),INTENT(IN)     :: ftsol  ! Temperature du sol (surf)(Kelvin)
     REAL,DIMENSION(klon,klev,nbtr),INTENT(INOUT) :: tr_seri! Concentration Traceur [U/KgA]