Changeset 927 for LMDZ4/trunk/libf/phylmd/phyredem.F

Timestamp:

Mar 14, 2008, 1:12:38 PM (17 years ago)

Author:

lmdzadmin

Message:

Ajout variables zmax0, f0 dans le startphy.nc FH
IM

File:

• LMDZ4/trunk/libf/phylmd/phyredem.F (modified) (4 diffs)

LMDZ4/trunk/libf/phylmd/phyredem.F

@@ -10 +10 @@
      .           zgam_p,zthe_p,zpic_p,zval_p,rugsrel_p,
      .           t_ancien_p, q_ancien_p, rnebcon_p, ratqs_p, clwcon_p,
-     .           pbl_tke_p)
+     .           pbl_tke_p, zmax0_p, f0_p)
 
       USE dimphy
@@ -39 +39 @@
       REAL tsol_p(klon,nbsrf)
       REAL pbl_tke_p(klon,klev,nbsrf)
+      REAL zmax0_p(klon), f0_p(klon)
       REAL tsoil_p(klon,nsoilmx,nbsrf)
       CHARACTER*6 ocean
@@ -73 +74 @@
       REAL tsol(klon_glo,nbsrf)
       REAL pbl_tke(klon_glo,klev,nbsrf)
+      REAL zmax0(klon_glo), f0(klon)
       REAL tsoil(klon_glo,nsoilmx,nbsrf)
       REAL tslab(klon_glo), seaice(klon_glo)
@@ -139 +141 @@
       call Gather( tsol_p,tsol)
       call Gather( pbl_tke_p,pbl_tke)
+      call Gather( zmax0_p,zmax0)
+      call Gather( f0_p,f0)
       call Gather( tsoil_p,tsoil)
       call Gather( tslab_p,tslab)