Changeset 6252
- Timestamp:
- 2016-01-14T13:27:20+01:00 (8 years ago)
- Location:
- branches/UKMO/nemo_v3_6_STABLE_pkg/NEMOGCM
- Files:
-
- 6 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/nemo_v3_6_STABLE_pkg/NEMOGCM/CONFIG/makenemo
r6251 r6252 75 75 # ========== 76 76 # 77 # $Id $77 # $Id: makenemo 5092 2015-02-17 17:30:01Z nicolasmartin $ 78 78 # 79 79 # -
branches/UKMO/nemo_v3_6_STABLE_pkg/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90
r6251 r6252 194 194 ALLOCATE( a_i(jpi,jpj,1) , STAT=ierr(2) ) ! used in sbcice_if.F90 (done here as there is no sbc_ice_if_init) 195 195 #endif 196 ALLOCATE( xcplmask(jpi,jpj,0:nn_cplmodel) , STAT=ierr(3) ) 196 !ALLOCATE( xcplmask(jpi,jpj,0:nn_cplmodel) , STAT=ierr(3) ) 197 ! Hardwire only two models as nn_cplmodel has not been read in 198 ! from the namelist yet. 199 ALLOCATE( xcplmask(jpi,jpj,0:2) , STAT=ierr(3) ) 197 200 ! 198 201 sbc_cpl_alloc = MAXVAL( ierr ) … … 293 296 294 297 ! ! allocate sbccpl arrays 295 IF( sbc_cpl_alloc() /= 0 ) CALL ctl_stop( 'STOP', 'sbc_cpl_alloc : unable to allocate arrays' )298 !IF( sbc_cpl_alloc() /= 0 ) CALL ctl_stop( 'STOP', 'sbc_cpl_alloc : unable to allocate arrays' ) 296 299 297 300 ! ================================ ! -
branches/UKMO/nemo_v3_6_STABLE_pkg/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_cice.F90
r6250 r6252 302 302 CALL wrk_dealloc( jpi,jpj, ztmp1, ztmp2 ) 303 303 ! 304 ! In coupled mode get extra fields from CICE for passing back to atmosphere 305 306 IF ( ksbc == jp_purecpl ) CALL cice_sbc_hadgam(nit000) 307 ! 304 308 IF( nn_timing == 1 ) CALL timing_stop('cice_sbc_init') 305 309 ! … … 734 738 IF( nn_timing == 1 ) CALL timing_start('cice_sbc_hadgam') 735 739 ! 736 IF( kt == nit000 ) THEN737 IF(lwp) WRITE(numout,*)'cice_sbc_hadgam'738 IF( sbc_cpl_alloc() /= 0 ) CALL ctl_stop( 'STOP', 'sbc_cpl_alloc : unable to allocate arrays' )739 ENDIF740 741 740 ! ! =========================== ! 742 741 ! ! Prepare Coupling fields ! -
branches/UKMO/nemo_v3_6_STABLE_pkg/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90
r5783 r6252 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 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 270 273 271 274 ! nn_fsbc initialization if OPA-SAS coupling via OASIS -
branches/UKMO/nemo_v3_6_STABLE_pkg/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90
r5781 r6252 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 … … 165 166 CALL Agrif_Step( stp ) ! AGRIF: time stepping 166 167 #else 167 CALL stp( istp ) ! standard time stepping 168 IF (lk_oasis) CALL sbc_cpl_snd( istp ) ! Coupling to atmos 169 CALL stp( istp ) 170 ! We don't couple on the final timestep because 171 ! our restart file has already been written 172 ! and contains all the necessary data for a 173 ! restart. sbc_cpl_snd could be called here 174 ! but it would require 175 ! a) A test to ensure it was not performed 176 ! on the very last time-step 177 ! b) the presence of another call to 178 ! sbc_cpl_snd call prior to the main DO loop 179 ! This solution produces identical results 180 ! with fewer lines of code. 168 181 #endif 169 182 istp = istp + 1 -
branches/UKMO/nemo_v3_6_STABLE_pkg/NEMOGCM/NEMO/OPA_SRC/step.F90
r5781 r6252 357 357 ! Coupled mode 358 358 !<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 359 IF( lk_oasis ) CALL sbc_cpl_snd( kstp ) ! coupled mode : field exchanges359 !IF( lk_oasis ) CALL sbc_cpl_snd( kstp ) ! coupled mode : field exchanges 360 360 ! 361 361 #if defined key_iomput
Note: See TracChangeset
for help on using the changeset viewer.