Changeset 364 for LMDZ.3.3/branches/rel-LF/libf/phylmd/physiq.F

Timestamp:

Jun 11, 2002, 2:19:49 PM (22 years ago)

Author:

lmdzadmin

Message:

Differentes modifs d'ajustement et de reglages du calendrier
LF

File:

• LMDZ.3.3/branches/rel-LF/libf/phylmd/physiq.F (modified) (3 diffs)

LMDZ.3.3/branches/rel-LF/libf/phylmd/physiq.F

@@ -734 +734 @@
 ccc         ecrit_ins = NINT(86400./dtime *0.5)  ! 2 fois par jour
 ccc         ecrit_ins = NINT(86400./dtime *0.25)  ! 4 fois par jour
+         ecrit_ins = NINT(86400./dtime/12.)  ! toutes les deux heures
          ecrit_ins = NINT(86400./dtime/48.)  ! a chaque pas de temps
-         ecrit_ins = NINT(86400./dtime/12.)  ! toutes les deux heures
          IF (ok_instan) THEN
          PRINT*, 'La frequence de sortie instant. est de ', ecrit_ins
@@ -1821 +1821 @@
       fder = dlw
 
-      CALL clmain(dtime,itap,zjulian,pctsrf,
+      CALL clmain(dtime,itap,date0,pctsrf,
      e            t_seri,q_seri,u_seri,v_seri,
      e            julien, rmu0, 
@@ -2005 +2005 @@
       ENDIF
 
-      CALL homogene(paprs, q_seri, d_q_con, u_seri,v_seri,
-     .              d_u_con, d_v_con)
+c     CALL homogene(paprs, q_seri, d_q_con, u_seri,v_seri,
+c    .              d_u_con, d_v_con)
       DO k = 1, klev
         DO i = 1, klon