- Timestamp:
- 2020-04-23T10:57:49+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/UKMO/r4.0-HEAD_r12713_dan_test_clems_branch/src/OCE/nemogcm.F90
r12801 r12803 87 87 USE lbcnfd , ONLY : isendto, nsndto, nfsloop, nfeloop ! Setup of north fold exchanges 88 88 USE lib_fortran ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined) 89 USE sbccpl 89 90 #if defined key_iomput 90 91 USE xios ! xIOserver … … 199 200 ENDIF 200 201 202 IF (lk_oasis) THEN 203 CALL sbc_cpl_snd( istp ) ! Coupling to atmos 204 ENDIF 201 205 CALL stp ( istp ) 202 206 istp = istp + 1 … … 209 213 ! 210 214 DO WHILE( istp <= nitend .AND. nstop == 0 ) 211 CALL stp_diurnal( istp ) ! time step only the diurnal SST 215 CALL stp_diurnal( istp ) ! time step only the diurnal SST 212 216 istp = istp + 1 213 217 END DO … … 279 283 IF( Agrif_Root() ) THEN 280 284 IF( lk_oasis ) THEN 281 CALL cpl_init( " oceanx", ilocal_comm )! nemo local communicator given by oasis285 CALL cpl_init( "toyoce", ilocal_comm ) ! nemo local communicator given by oasis 282 286 CALL xios_initialize( "not used" , local_comm =ilocal_comm ) ! send nemo communicator to xios 283 287 ELSE … … 289 293 IF( lk_oasis ) THEN 290 294 IF( Agrif_Root() ) THEN 291 CALL cpl_init( " oceanx", ilocal_comm )! nemo local communicator given by oasis295 CALL cpl_init( "toyoce", ilocal_comm ) ! nemo local communicator given by oasis 292 296 ENDIF 293 297 CALL mpp_start( ilocal_comm ) … … 498 502 ! 499 503 IF(lwp) WRITE(numout,cform_aaa) ! Flag AAAAAAA 504 505 IF (nstop > 0) THEN 506 CALL CTL_STOP('STOP','Critical errors in NEMO initialisation') 507 END IF 508 500 509 ! 501 510 IF( ln_timing ) CALL timing_stop( 'nemo_init')
Note: See TracChangeset
for help on using the changeset viewer.