- Timestamp:
- 2018-12-14T15:34:18+01:00 (5 years ago)
- Location:
- branches/UKMO/AMM15_v3_6_STABLE_package_collate_coupling/NEMOGCM/NEMO/OPA_SRC
- Files:
-
- 5 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/AMM15_v3_6_STABLE_package_collate_coupling/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90
r10392 r10394 191 191 ALLOCATE( a_i(jpi,jpj,1) , STAT=ierr(2) ) ! used in sbcice_if.F90 (done here as there is no sbc_ice_if_init) 192 192 #endif 193 ALLOCATE( xcplmask(jpi,jpj,0:nn_cplmodel) , STAT=ierr(3) ) 193 ! ALLOCATE( xcplmask(jpi,jpj,0:nn_cplmodel) , STAT=ierr(3) ) 194 ! Hardwire three models as nn_cplmodel has not been read in from the namelist yet. 195 ALLOCATE( xcplmask(jpi,jpj,0:3) , STAT=ierr(3) ) 194 196 ! 195 197 sbc_cpl_alloc = MAXVAL( ierr ) … … 277 279 278 280 ! ! allocate sbccpl arrays 279 IF( sbc_cpl_alloc() /= 0 ) CALL ctl_stop( 'STOP', 'sbc_cpl_alloc : unable to allocate arrays' )281 !IF( sbc_cpl_alloc() /= 0 ) CALL ctl_stop( 'STOP', 'sbc_cpl_alloc : unable to allocate arrays' ) 280 282 281 283 ! ================================ ! -
branches/UKMO/AMM15_v3_6_STABLE_package_collate_coupling/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_cice.F90
r8058 r10394 284 284 CALL wrk_dealloc( jpi,jpj, ztmp1, ztmp2 ) 285 285 ! 286 ! In coupled mode get extra fields from CICE for passing back to atmosphere 287 IF ( ksbc == jp_purecpl ) CALL cice_sbc_hadgam(nit000) 288 ! 286 289 IF( nn_timing == 1 ) CALL timing_stop('cice_sbc_init') 287 290 ! … … 708 711 IF( nn_timing == 1 ) CALL timing_start('cice_sbc_hadgam') 709 712 ! 710 IF( kt == nit000 ) THEN711 IF(lwp) WRITE(numout,*)'cice_sbc_hadgam'712 IF( sbc_cpl_alloc() /= 0 ) CALL ctl_stop( 'STOP', 'sbc_cpl_alloc : unable to allocate arrays' )713 ENDIF714 715 713 ! ! =========================== ! 716 714 ! ! Prepare Coupling fields ! -
branches/UKMO/AMM15_v3_6_STABLE_package_collate_coupling/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90
r8058 r10394 266 266 ENDIF 267 267 ! 268 IF( lk_oasis ) CALL sbc_cpl_init (nn_ice) ! OASIS initialisation. must be done before: (1) first time step 269 ! ! (2) the use of nn_fsbc 270 268 IF( lk_oasis ) THEN 269 IF( sbc_cpl_alloc() /= 0 ) CALL ctl_stop( 'STOP', 'sbc_cpl_alloc : unable to allocate arrays' ) 270 CALL sbc_cpl_init (nn_ice) ! OASIS initialisation. must be done before: (1) first time step 271 ! (2) the use of nn_fsbc 272 ENDIF 271 273 ! nn_fsbc initialization if OPA-SAS coupling via OASIS 272 274 ! sas model time step has to be declared in OASIS (mandatory) -> nn_fsbc has to be modified accordingly -
branches/UKMO/AMM15_v3_6_STABLE_package_collate_coupling/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90
r9181 r10394 68 68 USE icbini ! handle bergs, initialisation 69 69 USE icbstp ! handle bergs, calving, themodynamics and transport 70 USE sbccpl 70 71 USE cpl_oasis3 ! OASIS3 coupling 71 72 USE c1d ! 1D configuration … … 173 174 CALL stp ! AGRIF: time stepping 174 175 #else 175 CALL stp( istp ) ! standard time stepping 176 IF (lk_oasis) CALL sbc_cpl_snd( istp ) ! Coupling to atmos 177 CALL stp( istp ) 178 ! We don't couple on the final timestep because 179 ! our restart file has already been written 180 ! and contains all the necessary data for a 181 ! restart. sbc_cpl_snd could be called here 182 ! but it would require 183 ! a) A test to ensure it was not performed 184 ! on the very last time-step 185 ! b) the presence of another call to 186 ! sbc_cpl_snd call prior to the main DO loop 187 ! This solution produces identical results 188 ! with fewer lines of code. 176 189 #endif 177 190 istp = istp + 1 -
branches/UKMO/AMM15_v3_6_STABLE_package_collate_coupling/NEMOGCM/NEMO/OPA_SRC/step.F90
r10392 r10394 410 410 ! Coupled mode 411 411 !<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 412 IF( lk_oasis ) CALL sbc_cpl_snd( kstp ) ! coupled mode : field exchanges412 !IF( lk_oasis ) CALL sbc_cpl_snd( kstp ) ! coupled mode : field exchanges 413 413 ! 414 414 #if defined key_iomput
Note: See TracChangeset
for help on using the changeset viewer.