Changeset 12377 for NEMO/trunk/src/OCE/TRD/trdini.F90
- Timestamp:
- 2020-02-12T15:39:06+01:00 (4 years ago)
- Location:
- NEMO/trunk
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk
- Property svn:externals
-
old new 3 3 ^/utils/build/mk@HEAD mk 4 4 ^/utils/tools@HEAD tools 5 ^/vendors/AGRIF/dev @HEAD ext/AGRIF5 ^/vendors/AGRIF/dev_r11615_ENHANCE-04_namelists_as_internalfiles_agrif@HEAD ext/AGRIF 6 6 ^/vendors/FCM@HEAD ext/FCM 7 7 ^/vendors/IOIPSL@HEAD ext/IOIPSL
-
- Property svn:externals
-
NEMO/trunk/src/OCE/TRD/trdini.F90
r11536 r12377 25 25 PUBLIC trd_init ! called by nemogcm.F90 module 26 26 27 !! * Substitutions28 # include "vectopt_loop_substitute.h90"29 27 !!---------------------------------------------------------------------- 30 28 !! NEMO/OCE 4.0 , NEMO Consortium (2018) … … 34 32 CONTAINS 35 33 36 SUBROUTINE trd_init 34 SUBROUTINE trd_init( Kmm ) 37 35 !!---------------------------------------------------------------------- 38 36 !! *** ROUTINE trd_init *** … … 40 38 !! ** Purpose : Initialization of trend diagnostics 41 39 !!---------------------------------------------------------------------- 40 INTEGER, INTENT(in) :: Kmm ! time level index 42 41 INTEGER :: ios ! local integer 43 42 !! … … 46 45 !!---------------------------------------------------------------------- 47 46 ! 48 REWIND( numnam_ref ) ! Namelist namtrd in reference namelist : trends diagnostic49 47 READ ( numnam_ref, namtrd, IOSTAT = ios, ERR = 901 ) 50 48 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrd in reference namelist' ) 51 49 ! 52 REWIND( numnam_cfg ) ! Namelist namtrd in configuration namelist : trends diagnostic53 50 READ ( numnam_cfg, namtrd, IOSTAT = ios, ERR = 902 ) 54 51 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namtrd in configuration namelist' ) … … 96 93 97 94 ! ! diagnostic initialization 98 IF( ln_glo_trd ) CALL trd_glo_init ! global domain averaged trends95 IF( ln_glo_trd ) CALL trd_glo_init( Kmm ) ! global domain averaged trends 99 96 IF( ln_tra_mxl ) CALL trd_mxl_init ! mixed-layer trends 100 97 IF( ln_vor_trd ) CALL trd_vor_init ! barotropic vorticity trends
Note: See TracChangeset
for help on using the changeset viewer.