Changeset 478 for LMDZ.3.3/branches/rel-LF/libf

Timestamp:

Oct 21, 2003, 2:46:56 PM (21 years ago)

Author:

lmdzadmin

Message:

La lecture des conditions aux limites se faisait avec un jour de decalage
Merci Jean-Philippe
LF

Location:

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

Files:

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

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

@@ -1686 +1686 @@
       CALL histsync(nidct)
 ! pas utile      IF (lafin) CALL histclo(nidct)
-
       call intocpl(itime, (jjm+1)*iim, wri_sol_ice, wri_sol_sea, wri_nsol_ice,&
       & wri_nsol_sea, wri_fder_ice, wri_evap_ice, wri_evap_sea, wri_rain, &
@@ -1852 +1851 @@
 !
     start(1) = 1
-    start(2) = jour + 1
+    start(2) = jour
     epais(1) = klon
     epais(2) = 1

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

@@ -1174 +1174 @@
       itap   = itap + 1
       julien = MOD(NINT(xjour),360)
+      if (julien .eq. 0) julien = 360
 c
 c Mettre en action les conditions aux limites (albedo, sst, etc.).