Changeset 417 for codes/icosagcm/trunk/src/observable.f90
- Timestamp:
- 06/10/16 22:28:02 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/trunk/src/observable.f90
r413 r417 59 59 ! IF (is_master) PRINT *,'CALL write_output_fields_basic' 60 60 61 CALL transfert_request(f_ps,req_i1) 62 61 63 IF(init) THEN 62 64 scalar(1)=dt
Note: See TracChangeset
for help on using the changeset viewer.