Changeset 478 for LMDZ.3.3/branches
- Timestamp:
- Oct 21, 2003, 2:46:56 PM (21 years ago)
- 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 1686 1686 CALL histsync(nidct) 1687 1687 ! pas utile IF (lafin) CALL histclo(nidct) 1688 1689 1688 call intocpl(itime, (jjm+1)*iim, wri_sol_ice, wri_sol_sea, wri_nsol_ice,& 1690 1689 & wri_nsol_sea, wri_fder_ice, wri_evap_ice, wri_evap_sea, wri_rain, & … … 1852 1851 ! 1853 1852 start(1) = 1 1854 start(2) = jour + 11853 start(2) = jour 1855 1854 epais(1) = klon 1856 1855 epais(2) = 1 -
LMDZ.3.3/branches/rel-LF/libf/phylmd/physiq.F
r476 r478 1174 1174 itap = itap + 1 1175 1175 julien = MOD(NINT(xjour),360) 1176 if (julien .eq. 0) julien = 360 1176 1177 c 1177 1178 c Mettre en action les conditions aux limites (albedo, sst, etc.).
Note: See TracChangeset
for help on using the changeset viewer.