Changeset 1442
- Timestamp:
- 2009-05-12T15:43:18+02:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/stpctl.F90
r1152 r1442 145 145 CALL dia_wri( kt, kindic ) 146 146 ENDIF 147 9400 FORMAT (' kt=',i6,' max abs(U): ',1pg11.4,', i j k: ',3i 4)147 9400 FORMAT (' kt=',i6,' max abs(U): ',1pg11.4,', i j k: ',3i5) 148 148 149 149 … … 187 187 ENDIF 188 188 ENDIF 189 9500 FORMAT (' kt=',i6,' min SSS: ',1pg11.4,', i j: ',2i 4)189 9500 FORMAT (' kt=',i6,' min SSS: ',1pg11.4,', i j: ',2i5) 190 190 191 191 END SUBROUTINE stp_ctl
Note: See TracChangeset
for help on using the changeset viewer.