- Timestamp:
- 08/27/14 15:28:20 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/branches/SATURN_DYNAMICO/LMDZ.COMMON/libf/phystd/physiq.F90
r263 r269 574 574 rnat,pctsrf_sic,tslab, tsea_ice,sea_ice) 575 575 576 !mi initialising tsurf with pt 577 tsurf(:)=pt(:,1) 578 576 579 if (pday.ne.day_ini) then 577 580 write(*,*) "ERROR in physiq.F90:"
Note: See TracChangeset
for help on using the changeset viewer.