- Timestamp:
- 2018-01-06T15:18:23+01:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/ICB/icbtrj.F90
r9019 r9190 1 1 MODULE icbtrj 2 3 2 !!====================================================================== 4 3 !! *** MODULE icbtrj *** 5 4 !! Ocean physics: trajectory I/O routines 6 5 !!====================================================================== 7 !! History : 3.3.1 ! 2010-01 (Martin&Adcroft) Original code 8 !! - ! 2011-03 (Madec) Part conversion to NEMO form 9 !! - ! Removal of mapping from another grid 10 !! - ! 2011-05 (Alderson) New module to handle trajectory output 11 !!---------------------------------------------------------------------- 12 !!---------------------------------------------------------------------- 13 !! icb_trj_init : 6 !! History : 3.3 ! 2010-01 (Martin&Adcroft) Original code 7 !! - ! 2011-03 (Madec) Part conversion to NEMO form 8 !! - ! Removal of mapping from another grid 9 !! - ! 2011-05 (Alderson) New module to handle trajectory output 10 !!---------------------------------------------------------------------- 11 12 !!---------------------------------------------------------------------- 13 !! icb_trj_init : 14 !! icb_trj_write : 15 !! icb_trj_sync : 16 !! icb_trj_end : 14 17 !!---------------------------------------------------------------------- 15 18 USE par_oce ! NEMO parameters … … 49 52 !!---------------------------------------------------------------------- 50 53 CONTAINS 51 52 !!-------------------------------------------------------------------------53 54 54 55 SUBROUTINE icb_trj_init( ktend ) … … 252 253 END SUBROUTINE icb_trj_write 253 254 254 !!-------------------------------------------------------------------------255 255 256 256 SUBROUTINE icb_trj_sync() … … 260 260 !! ** Purpose : 261 261 !!---------------------------------------------------------------------- 262 INTEGER ::iret262 INTEGER :: iret 263 263 !!---------------------------------------------------------------------- 264 264 ! flush to file … … 270 270 271 271 SUBROUTINE icb_trj_end() 272 ! Local variables273 INTEGER ::iret272 !!---------------------------------------------------------------------- 273 INTEGER :: iret 274 274 !!---------------------------------------------------------------------- 275 275 ! Finish up … … 279 279 END SUBROUTINE icb_trj_end 280 280 281 !!------------------------------------------------------------------------- 282 281 !!====================================================================== 283 282 END MODULE icbtrj
Note: See TracChangeset
for help on using the changeset viewer.