Changeset 692

Timestamp:

Apr 4, 2006, 5:05:59 PM (19 years ago)

Author:

lmdzadmin

Message:

Ajout fichier contenant les flags/parametres de la dynamique paramLMDZ_dyn.nc
IM

Location:

LMDZ4/trunk/libf/dyn3d

Files:

• ini_paramLMDZ_dyn.h (added)
• leapfrog.F (modified) (5 diffs)
• write_paramLMDZ_dyn.h (added)

LMDZ4/trunk/libf/dyn3d/leapfrog.F

@@ -10 +10 @@
       USE transport_controls, ONLY : hadv_flg, mmt_adj
 #endif
+
+cIM : pour sortir les param. du modele dans un fis. netcdf 110106
+      USE IOIPSL 
 
       IMPLICIT NONE
@@ -63 +66 @@
 #include "academic.h"
 
+#include "clesphys.h"
+
       integer nq
 
@@ -127 +132 @@
       REAL rdayvrai,rdaym_ini
       LOGICAL first,callinigrads
+cIM : pour sortir les param. du modele dans un fis. netcdf 110106
+      save first
+      data first/.true./
+      real dt_cum, zjulian
+      character*10 infile
+      integer zan, tau0, thoriid
+      integer nid_ctesGCM
+      save nid_ctesGCM
+      real degres
+      real rlong(iip1), rlatg(jjp1)
+      real zx_tmp_2d(iip1,jjp1)
+      integer ndex2d(iip1*jjp1)
+      logical ok_sync
+      parameter (ok_sync = .true.) 
 
       data callinigrads/.true./
@@ -146 +165 @@
       REAL      d_h_vcol, d_qt, d_qw, d_ql, d_ec
       CHARACTER*15 ztit
-      INTEGER   ip_ebil_dyn  ! PRINT level for energy conserv. diag.
-      SAVE      ip_ebil_dyn
-      DATA      ip_ebil_dyn/0/
+!IM   INTEGER   ip_ebil_dyn  ! PRINT level for energy conserv. diag.
+!IM   SAVE      ip_ebil_dyn
+!IM   DATA      ip_ebil_dyn/0/
 c-jld 
 
@@ -354 +373 @@
       ENDIF 
 c-jld
+cIM : pour sortir les param. du modele dans un fis. netcdf 110106
+      IF (first) THEN
+       first=.false.
+#include "ini_paramLMDZ_dyn.h"
+      ENDIF
+c
+#include "write_paramLMDZ_dyn.h"
+c
 
         CALL calfis( nq, lafin ,rdayvrai,time  ,