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

Timestamp:

Jun 19, 2008, 12:25:57 PM (16 years ago)

Author:

lmdzadmin

Message:

Initialisations : concvl, cv3_routines, cva_driver, physiq
Correction bug i0 + ajout tests : cv3p1_closure
Ajout sorties : ale, alp, cin, wape
Ajout variables wake : phyetat0, phyredem
IM

File:

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

LMDZ4/trunk/libf/phylmd/phyredem.F

@@ -56 +56 @@
       REAL zmax0_glo(klon_glo), f0_glo(klon)
       REAL ema_work1_glo(klon_glo, klev), ema_work2_glo(klon_glo, klev)
+      REAL wake_deltat_glo(klon_glo,klev),wake_deltaq_glo(klon_glo,klev)
+      REAL wake_s_glo(klon_glo), wake_cstar_glo(klon_glo)
+      REAL wake_fip_glo(klon_glo)
 
 cIM "slab" ocean
@@ -140 +143 @@
       call Gather( ema_work1, ema_work1_glo)
       call Gather( ema_work2, ema_work2_glo)
+      call Gather( wake_deltat, wake_deltat_glo)
+      call Gather( wake_deltaq, wake_deltaq_glo)
+      call Gather( wake_s, wake_s_glo)
+      call Gather( wake_cstar, wake_cstar_glo)
+      call Gather( wake_fip, wake_fip_glo)
 
       call Gather( tsoil_p,tsoil)
@@ -881 +889 @@
       ierr=NF_DEF_VAR(nid,"RUNOFFLIC0",NF_FLOAT, 1,idim2,nvarid)
 #endif
-      ierr = NF_PUT_ATT_TEXT (nid,nvarid,"title", 28,
+      ierr = NF_PUT_ATT_TEXT (nid,nvarid,"title", 10,
      .                        "Runofflic0")
       ierr = NF_ENDDEF(nid)
@@ -921 +929 @@
 
 !!!!!!!!!!!!!!!!!!!! FIN TKE PBL !!!!!!!!!!!!!!!!!!!!!!!!!
+cIM ajout zmax0, f0, ema_work1, ema_work2
+cIM wake_deltat, wake_deltaq, wake_s, wake_cstar, wake_fip
+      ierr = NF_REDEF (nid)
+#ifdef NC_DOUBLE
+      ierr = NF_DEF_VAR (nid, "ZMAX0", NF_DOUBLE, 1, idim2,nvarid)
+#else
+      ierr = NF_DEF_VAR (nid, "ZMAX0", NF_FLOAT, 1, idim2,nvarid)
+#endif
+      ierr = NF_ENDDEF(nid)
+#ifdef NC_DOUBLE
+      ierr = NF_PUT_VAR_DOUBLE (nid,nvarid,zmax0_glo)
+#else
+      ierr = NF_PUT_VAR_REAL (nid,nvarid,zmax0_glo)
+#endif
+c
+      ierr = NF_REDEF (nid)
+#ifdef NC_DOUBLE
+      ierr = NF_DEF_VAR (nid, "F0", NF_DOUBLE, 1, idim2,nvarid)
+#else
+      ierr = NF_DEF_VAR (nid, "F0", NF_FLOAT, 1, idim2,nvarid)
+#endif
+      ierr = NF_ENDDEF(nid)
+#ifdef NC_DOUBLE
+      ierr = NF_PUT_VAR_DOUBLE (nid,nvarid,f0_glo)
+#else
+      ierr = NF_PUT_VAR_REAL (nid,nvarid,f0_glo)
+#endif
+c ema_work1
+      ierr = NF_REDEF (nid)
+#ifdef NC_DOUBLE
+      ierr = NF_DEF_VAR (nid, "EMA_WORK1", NF_DOUBLE, 1, idim3,nvarid)
+#else
+      ierr = NF_DEF_VAR (nid, "EMA_WORK1", NF_FLOAT, 1, idim3,nvarid)
+#endif
+      ierr = NF_ENDDEF(nid)
+#ifdef NC_DOUBLE
+      ierr = NF_PUT_VAR_DOUBLE (nid,nvarid,ema_work1_glo)
+#else
+      ierr = NF_PUT_VAR_REAL (nid,nvarid,ema_work1_glo)
+#endif
+c ema_work2
+      ierr = NF_REDEF (nid)
+#ifdef NC_DOUBLE
+      ierr = NF_DEF_VAR (nid, "EMA_WORK2", NF_DOUBLE, 1, idim3,nvarid)
+#else
+      ierr = NF_DEF_VAR (nid, "EMA_WORK2", NF_FLOAT, 1, idim3,nvarid)
+#endif
+      ierr = NF_ENDDEF(nid)
+#ifdef NC_DOUBLE
+      ierr = NF_PUT_VAR_DOUBLE (nid,nvarid,ema_work2_glo)
+#else
+      ierr = NF_PUT_VAR_REAL (nid,nvarid,ema_work2_glo)
+#endif
+c wake_deltat
+      ierr = NF_REDEF (nid)
+#ifdef NC_DOUBLE
+      ierr = NF_DEF_VAR (nid, "WAKE_DELTAT", NF_DOUBLE, 1, idim3,nvarid)
+#else
+      ierr = NF_DEF_VAR (nid, "WAKE_DELTAT", NF_FLOAT, 1, idim3,nvarid)
+#endif
+      ierr = NF_ENDDEF(nid)
+#ifdef NC_DOUBLE
+      ierr = NF_PUT_VAR_DOUBLE (nid,nvarid,wake_deltat_glo)
+#else
+      ierr = NF_PUT_VAR_REAL (nid,nvarid,wake_deltat_glo)
+#endif
+c wake_deltaq
+      ierr = NF_REDEF (nid)
+#ifdef NC_DOUBLE
+      ierr = NF_DEF_VAR (nid, "WAKE_DELTAQ", NF_DOUBLE, 1, idim3,nvarid)
+#else
+      ierr = NF_DEF_VAR (nid, "WAKE_DELTAQ", NF_FLOAT, 1, idim3,nvarid)
+#endif
+      ierr = NF_ENDDEF(nid)
+#ifdef NC_DOUBLE
+      ierr = NF_PUT_VAR_DOUBLE (nid,nvarid,wake_deltaq_glo)
+#else
+      ierr = NF_PUT_VAR_REAL (nid,nvarid,wake_deltaq_glo)
+#endif
+c wake_s
+      ierr = NF_REDEF (nid)
+#ifdef NC_DOUBLE
+      ierr = NF_DEF_VAR (nid, "WAKE_S", NF_DOUBLE, 1, idim2,nvarid)
+#else
+      ierr = NF_DEF_VAR (nid, "WAKE_S", NF_FLOAT, 1, idim2,nvarid)
+#endif
+      ierr = NF_ENDDEF(nid)
+#ifdef NC_DOUBLE
+      ierr = NF_PUT_VAR_DOUBLE (nid,nvarid,wake_s_glo)
+#else
+      ierr = NF_PUT_VAR_REAL (nid,nvarid,wake_s_glo)
+#endif
+c wake_cstar
+      ierr = NF_REDEF (nid)
+#ifdef NC_DOUBLE
+      ierr = NF_DEF_VAR (nid, "WAKE_CSTAR", NF_DOUBLE, 1, idim2,nvarid)
+#else
+      ierr = NF_DEF_VAR (nid, "WAKE_CSTAR", NF_FLOAT, 1, idim2,nvarid)
+#endif
+      ierr = NF_ENDDEF(nid)
+#ifdef NC_DOUBLE
+      ierr = NF_PUT_VAR_DOUBLE (nid,nvarid,wake_cstar_glo)
+#else
+      ierr = NF_PUT_VAR_REAL (nid,nvarid,wake_cstar_glo)
+#endif
+c wake_fip
+      ierr = NF_REDEF (nid)
+#ifdef NC_DOUBLE
+      ierr = NF_DEF_VAR (nid, "WAKE_FIP", NF_DOUBLE, 1, idim2,nvarid)
+#else
+      ierr = NF_DEF_VAR (nid, "WAKE_FIP", NF_FLOAT, 1, idim2,nvarid)
+#endif
+      ierr = NF_ENDDEF(nid)
+#ifdef NC_DOUBLE
+      ierr = NF_PUT_VAR_DOUBLE (nid,nvarid,wake_fip_glo)
+#else
+      ierr = NF_PUT_VAR_REAL (nid,nvarid,wake_fip_glo)
+#endif
 c
       ierr = NF_CLOSE(nid)