- Timestamp:
- 2015-06-16T06:16:43+02:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/2015_CO6_CO5_shelfdiagnostic/NEMOGCM/NEMO/OPA_SRC/DIA/diawri.F90
r5422 r5427 44 44 USE in_out_manager ! I/O manager 45 45 USE diadimg ! dimg direct access file format output 46 USE diatmb ! Top,middle,bottom output 47 USE dia25h ! 25h Mean output 46 48 USE iom 47 49 USE ioipsl … … 333 335 CALL wrk_dealloc( jpi , jpj, jpk , z3d ) 334 336 ! 337 ! If we want tmb values 338 339 IF (ln_diatmb) THEN 340 CALL dia_tmb 341 ENDIF 342 IF (ln_dia25h) THEN 343 CALL dia_25h( kt ) 344 ENDIF 345 335 346 IF( nn_timing == 1 ) CALL timing_stop('dia_wri') 336 347 !
Note: See TracChangeset
for help on using the changeset viewer.