- Timestamp:
- 2020-10-22T20:49:56+02:00 (3 years ago)
- Location:
- NEMO/branches/2019/dev_r11842_SI3-10_EAP
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r11842_SI3-10_EAP
- Property svn:externals
-
old new 1 ^/utils/build/arch@HEAD arch 2 ^/utils/build/makenemo@HEAD makenemo 3 ^/utils/build/mk@HEAD mk 4 ^/utils/tools@HEAD tools 5 ^/vendors/AGRIF/dev@HEAD ext/AGRIF 6 ^/vendors/FCM@HEAD ext/FCM 7 ^/vendors/IOIPSL@HEAD ext/IOIPSL 1 ^/utils/build/arch@12130 arch 2 ^/utils/build/makenemo@12191 makenemo 3 ^/utils/build/mk@11662 mk 4 ^/utils/tools_r4.0-HEAD@12672 tools 5 ^/vendors/AGRIF/dev@10586 ext/AGRIF 6 ^/vendors/FCM@10134 ext/FCM 7 ^/vendors/IOIPSL@9655 ext/IOIPSL 8 9 # SETTE mapping (inactive) 10 #^/utils/CI/sette@12135 sette
-
- Property svn:externals
-
NEMO/branches/2019/dev_r11842_SI3-10_EAP/src/OCE/nemogcm.F90
r11536 r13662 72 72 USE step_diu ! diurnal bulk SST timestepping (called from here if run offline) 73 73 USE crsini ! initialise grid coarsening utility 74 USE diatmb ! Top,middle,bottom output75 74 USE dia25h ! 25h mean output 76 75 USE sbc_oce , ONLY : lk_oasis … … 83 82 #endif 84 83 ! 84 USE in_out_manager ! I/O manager 85 85 USE lib_mpp ! distributed memory computing 86 86 USE mppini ! shared/distributed memory setting (mpp_init routine) … … 179 179 END DO 180 180 ! 181 IF( .NOT. Agrif_Root() ) THEN182 CALL Agrif_ParentGrid_To_ChildGrid()183 IF( ln_diaobs ) CALL dia_obs_wri184 IF( ln_timing ) CALL timing_finalize185 CALL Agrif_ChildGrid_To_ParentGrid()186 ENDIF187 !188 181 # else 189 182 ! … … 230 223 IF( nstop /= 0 .AND. lwp ) THEN ! error print 231 224 WRITE(ctmp1,*) ' ==>>> nemo_gcm: a total of ', nstop, ' errors have been found' 232 CALL ctl_stop( ctmp1 ) 225 IF( ngrdstop > 0 ) THEN 226 WRITE(ctmp9,'(i2)') ngrdstop 227 WRITE(ctmp2,*) ' E R R O R detected in Agrif grid '//TRIM(ctmp9) 228 WRITE(ctmp3,*) ' Look for "E R R O R" messages in all existing '//TRIM(ctmp9)//'_ocean_output* files' 229 CALL ctl_stop( ' ', ctmp1, ' ', ctmp2, ' ', ctmp3 ) 230 ELSE 231 WRITE(ctmp2,*) ' Look for "E R R O R" messages in all existing ocean_output* files' 232 CALL ctl_stop( ' ', ctmp1, ' ', ctmp2 ) 233 ENDIF 233 234 ENDIF 234 235 ! … … 311 312 IF( lwm ) CALL ctl_opn( numond, 'output.namelist.dyn', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. ) 312 313 ! open /dev/null file to be able to supress output write easily 314 IF( Agrif_Root() ) THEN 313 315 CALL ctl_opn( numnul, '/dev/null', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. ) 316 #ifdef key_agrif 317 ELSE 318 numnul = Agrif_Parent(numnul) 319 #endif 320 ENDIF 314 321 ! 315 322 ! !--------------------! … … 484 491 CALL trd_init ! Mixed-layer/Vorticity/Integral constraints trends 485 492 CALL dia_obs_init ! Initialize observational data 486 CALL dia_tmb_init ! TMB outputs487 493 CALL dia_25h_init ! 25h mean outputs 488 494 CALL dia_harm_init ! tidal harmonics outputs
Note: See TracChangeset
for help on using the changeset viewer.