Changeset 269 for codes/icosagcm/branches/SATURN_DYNAMICO
- Timestamp:
- 08/27/14 15:28:20 (10 years ago)
- Location:
- codes/icosagcm/branches/SATURN_DYNAMICO/LMDZ.COMMON/libf/phystd
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/branches/SATURN_DYNAMICO/LMDZ.COMMON/libf/phystd/phyetat0_academic.F90
r232 r269 239 239 if (.not.found) then 240 240 write(*,*) "phyetat0: Failed loading <tsurf>" 241 tsurf(:)=175.0 241 !mi initialising tsurf with pt(:,1) 242 !tsurf(:)=175.0 242 243 else 243 244 write(*,*) "phyetat0: Surface temperature <tsurf> range:", & -
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.