New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 9190 for branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/ICB/icbtrj.F90 – NEMO

Ignore:
Timestamp:
2018-01-06T15:18:23+01:00 (6 years ago)
Author:
gm
Message:

dev_merge_2017: OPA_SRC: style only, results unchanged

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/ICB/icbtrj.F90

    r9019 r9190  
    11MODULE icbtrj 
    2  
    32   !!====================================================================== 
    43   !!                       ***  MODULE  icbtrj  *** 
    54   !! Ocean physics:  trajectory I/O routines 
    65   !!====================================================================== 
    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   : 
    1417   !!---------------------------------------------------------------------- 
    1518   USE par_oce        ! NEMO parameters 
     
    4952   !!---------------------------------------------------------------------- 
    5053CONTAINS 
    51  
    52    !!------------------------------------------------------------------------- 
    5354 
    5455   SUBROUTINE icb_trj_init( ktend ) 
     
    252253   END SUBROUTINE icb_trj_write 
    253254 
    254    !!------------------------------------------------------------------------- 
    255255 
    256256   SUBROUTINE icb_trj_sync() 
     
    260260      !! ** Purpose :    
    261261      !!---------------------------------------------------------------------- 
    262       INTEGER                               :: iret 
     262      INTEGER ::  iret 
    263263      !!---------------------------------------------------------------------- 
    264264      ! flush to file 
     
    270270 
    271271   SUBROUTINE icb_trj_end() 
    272       ! Local variables 
    273       INTEGER                               :: iret 
     272      !!---------------------------------------------------------------------- 
     273      INTEGER ::  iret 
    274274      !!---------------------------------------------------------------------- 
    275275      ! Finish up 
     
    279279   END SUBROUTINE icb_trj_end 
    280280 
    281    !!------------------------------------------------------------------------- 
    282  
     281   !!====================================================================== 
    283282END MODULE icbtrj 
Note: See TracChangeset for help on using the changeset viewer.