Changeset 541 for LMDZ4/trunk/libf/phylmd/initphysto.F

Timestamp:

Jun 22, 2004, 1:45:36 PM (20 years ago)

Author:

lmdzadmin

Message:

Convergence avec la version d'Olivia Coindreau incluant:

• le offline
• les thermiques
• mellor & yamada dans la couche limite

LF

File:

• LMDZ4/trunk/libf/phylmd/initphysto.F (modified) (2 diffs)

LMDZ4/trunk/libf/phylmd/initphysto.F

@@ -188 +188 @@
 c coefh frac_impa,frac_nucl
         
-        call histdef(fileid, 'coefh', ' ', ' ',
-     .             iim, jjm+1, nhoriid, llm, 1, llm, zvertiid,
-     .             32, 'inst(X)', t_ops, t_wrt)
+        call histdef(fileid, "coefh", " ", " ",
+     .             iim, jjm+1, nhoriid, llm, 1, llm, zvertiid,
+     .             32, "inst(X)", t_ops, t_wrt)
+
+c abderrahmane le 16 09 02
+        call histdef(fileid, "fm_th", " ", " ",
+     .             iim, jjm+1, nhoriid, llm, 1, llm, zvertiid,
+     .             32, "inst(X)", t_ops, t_wrt)
+
+        call histdef(fileid, "en_th", " ", " ",
+     .             iim, jjm+1, nhoriid, llm, 1, llm, zvertiid,
+     .             32, "inst(X)", t_ops, t_wrt)
+c fin aj
         
         write(*,*) 'apres coefh ds initphysto'  
@@ -283 +293 @@
 
       call histend(fileid)
-      if (ok_sync) call histsync(fileid)
+c     if (ok_sync) call histsync(fileid)
+      if (ok_sync) call histsync