- Timestamp:
- 2018-04-27T11:55:57+02:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_merge_2017/NEMOGCM/NEMO/SAS_SRC/stpctl.F90
r9441 r9510 70 70 IF( lwm ) THEN 71 71 istatus = NF90_CREATE( 'run.stat.nc', NF90_CLOBBER, idrun ) 72 istatus = NF90_DEF_DIM( idrun, 'time' , NF90_UNLIMITED, idtime )73 istatus = NF90_DEF_VAR( idrun, ' abs_ssh_max', NF90_DOUBLE, (/ idtime /), idssh )74 istatus = NF90_DEF_VAR( idrun, 75 istatus = NF90_DEF_VAR( idrun, 's_min', NF90_DOUBLE, (/ idtime /), ids )72 istatus = NF90_DEF_DIM( idrun, 'time' , NF90_UNLIMITED, idtime ) 73 istatus = NF90_DEF_VAR( idrun, 'vt_i_max' , NF90_DOUBLE, (/ idtime /), idssh ) 74 istatus = NF90_DEF_VAR( idrun, 'abs_u_max', NF90_DOUBLE, (/ idtime /), idu ) 75 istatus = NF90_DEF_VAR( idrun, 'tm_i_min' , NF90_DOUBLE, (/ idtime /), ids ) 76 76 istatus = NF90_ENDDEF(idrun) 77 77 ENDIF … … 106 106 END IF 107 107 ! 108 9400 FORMAT(' it :', i8, ' |ssh|_max: ', D23.16, ' |U|_max: ', D23.16,' S_min: ', D23.16)108 9400 FORMAT(' it :', i8, ' vt_i_max: ', D23.16, ' |u|_max: ', D23.16,' tm_i_min: ', D23.16) 109 109 ! 110 110 END SUBROUTINE stp_ctl
Note: See TracChangeset
for help on using the changeset viewer.