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

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/interface_surf.F90 (modified) (3 diffs)

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, &