Changeset 269 for codes/icosagcm/branches/SATURN_DYNAMICO/LMDZ.COMMON/libf/phystd/phyetat0_academic.F90
- 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/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:", &
Note: See TracChangeset
for help on using the changeset viewer.