Changeset 11960 for NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/DIA
- Timestamp:
- 2019-11-25T18:19:39+01:00 (5 years ago)
- Location:
- NEMO/branches/2019/dev_r11943_MERGE_2019
- Files:
-
- 7 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r11943_MERGE_2019
- 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/branches/2019/dev_r11943_MERGE_2019/src/OCE/DIA/dia25h.F90
r11949 r11960 55 55 !!---------------------------------------------------------------------- 56 56 ! 57 REWIND ( numnam_ref ) ! Read Namelist nam_dia25h in reference namelist : 25hour mean diagnostics58 57 READ ( numnam_ref, nam_dia25h, IOSTAT=ios, ERR= 901 ) 59 58 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_dia25h in reference namelist' ) 60 REWIND( numnam_cfg ) ! Namelist nam_dia25h in configuration namelist 25hour diagnostics61 59 READ ( numnam_cfg, nam_dia25h, IOSTAT = ios, ERR = 902 ) 62 60 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nam_dia25h in configuration namelist' ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/DIA/diadct.F90
r11949 r11960 123 123 !!--------------------------------------------------------------------- 124 124 125 REWIND( numnam_ref ) ! Namelist nam_diadct in reference namelist : Diagnostic: transport through sections126 125 READ ( numnam_ref, nam_diadct, IOSTAT = ios, ERR = 901) 127 126 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_diadct in reference namelist' ) 128 127 129 REWIND( numnam_cfg ) ! Namelist nam_diadct in configuration namelist : Diagnostic: transport through sections130 128 READ ( numnam_cfg, nam_diadct, IOSTAT = ios, ERR = 902 ) 131 129 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nam_diadct in configuration namelist' ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/DIA/diaharm.F90
r11949 r11960 79 79 ENDIF 80 80 ! 81 REWIND( numnam_ref ) ! Namelist nam_diaharm in reference namelist : Tidal harmonic analysis82 81 READ ( numnam_ref, nam_diaharm, IOSTAT = ios, ERR = 901) 83 82 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_diaharm in reference namelist' ) 84 REWIND( numnam_cfg ) ! Namelist nam_diaharm in configuration namelist : Tidal harmonic analysis85 83 READ ( numnam_cfg, nam_diaharm, IOSTAT = ios, ERR = 902 ) 86 84 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nam_diaharm in configuration namelist' ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/DIA/diahsb.F90
r11949 r11960 364 364 WRITE(numout,*) '~~~~~~~~~~~~ ' 365 365 ENDIF 366 REWIND( numnam_ref ) ! Namelist namhsb in reference namelist367 366 READ ( numnam_ref, namhsb, IOSTAT = ios, ERR = 901) 368 367 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namhsb in reference namelist' ) 369 REWIND( numnam_cfg ) ! Namelist namhsb in configuration namelist370 368 READ ( numnam_cfg, namhsb, IOSTAT = ios, ERR = 902 ) 371 369 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namhsb in configuration namelist' ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/DIA/diaptr.F90
r11949 r11960 392 392 !!---------------------------------------------------------------------- 393 393 394 REWIND( numnam_ref ) ! Namelist namptr in reference namelist : Poleward transport395 394 READ ( numnam_ref, namptr, IOSTAT = ios, ERR = 901) 396 395 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namptr in reference namelist' ) 397 396 398 REWIND( numnam_cfg ) ! Namelist namptr in configuration namelist : Poleward transport399 397 READ ( numnam_cfg, namptr, IOSTAT = ios, ERR = 902 ) 400 398 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namptr in configuration namelist' ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/DIA/diatmb.F90
r11949 r11960 41 41 !!---------------------------------------------------------------------- 42 42 ! 43 REWIND( numnam_ref ) ! Read Namelist nam_diatmb in reference namelist : TMB diagnostics44 43 READ ( numnam_ref, nam_diatmb, IOSTAT=ios, ERR= 901 ) 45 44 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_diatmb in reference namelist' ) 46 45 47 REWIND( numnam_cfg ) ! Namelist nam_diatmb in configuration namelist TMB diagnostics48 46 READ ( numnam_cfg, nam_diatmb, IOSTAT = ios, ERR = 902 ) 49 47 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nam_diatmb in configuration namelist' )
Note: See TracChangeset
for help on using the changeset viewer.