Changeset 364

Timestamp:

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

Author:

lmdzadmin

Message:

Differentes modifs d'ajustement et de reglages du calendrier
LF

Location:

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

Files:

• calcratqs.F (modified) (1 diff)
• interface_surf.F90 (modified) (3 diffs)
• physiq.F (modified) (3 diffs)

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

@@ -100 +100 @@
                    if (pt_conv(i,k)) then
                       ratqs(i,k)=0.01
-     s                +0.25*(q_seri(i,1)-q_seri(i,k))/q_seri(i,k)
+     s                +1.5*0.25*(q_seri(i,1)-q_seri(i,k))/q_seri(i,k)
                       ratqs(i,k)=min(ratqs(i,k),ratqsmax)
                       ratqs(i,k)=max(ratqs(i,k),0.1)

LMDZ.3.3/branches/rel-LF/libf/phylmd/interface_surf.F90

@@ -790 +790 @@
   real, dimension(klon) :: cdrag
 
+  include 'temps.inc'
+
   if (check) write(*,*)'Entree ', modname
   if (check) write(*,*)'ok_veget = ',ok_veget
@@ -994 +996 @@
 !
   if (debut) then
-    call intersurf_main (itime-1, iim, jjm+1, knon, ktindex, dtime, &
+    call intersurf_main (itime+itau_phy-1, iim, jjm+1, knon, ktindex, dtime, &
      & lrestart_read, lrestart_write, lalo, &
      & contfrac, neighbours, resolution, date0, &
@@ -1005 +1007 @@
   endif
 
-  call intersurf_main (itime, iim, jjm+1, knon, ktindex, dtime, &
+  call intersurf_main (itime+itau_phy, iim, jjm+1, knon, ktindex, dtime, &
      & lrestart_read, lrestart_write, lalo, &
      & contfrac, neighbours, resolution, date0, &

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