Changeset 478 for LMDZ.3.3/branches


Ignore:
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:
2 edited

Legend:

Unmodified
Added
Removed
  • LMDZ.3.3/branches/rel-LF/libf/phylmd/interface_surf.F90

    r467 r478  
    16861686      CALL histsync(nidct)
    16871687! pas utile      IF (lafin) CALL histclo(nidct)
    1688 
    16891688      call intocpl(itime, (jjm+1)*iim, wri_sol_ice, wri_sol_sea, wri_nsol_ice,&
    16901689      & wri_nsol_sea, wri_fder_ice, wri_evap_ice, wri_evap_sea, wri_rain, &
     
    18521851!
    18531852    start(1) = 1
    1854     start(2) = jour + 1
     1853    start(2) = jour
    18551854    epais(1) = klon
    18561855    epais(2) = 1
  • LMDZ.3.3/branches/rel-LF/libf/phylmd/physiq.F

    r476 r478  
    11741174      itap   = itap + 1
    11751175      julien = MOD(NINT(xjour),360)
     1176      if (julien .eq. 0) julien = 360
    11761177c
    11771178c Mettre en action les conditions aux limites (albedo, sst, etc.).
Note: See TracChangeset for help on using the changeset viewer.