Changeset 1790 for branches/dev_005_AWL/NEMO/OPA_SRC/SBC/sbcmod.F90
- Timestamp:
- 2009-12-09T09:29:24+01:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/dev_005_AWL/NEMO/OPA_SRC/SBC/sbcmod.F90
r1789 r1790 103 103 IF( nn_ice /= 0 ) CALL ctl_stop("sbcmod: non-zero nn_ice in nest model when interpolating") 104 104 IF( ln_ssr ) CALL ctl_stop("sbcmod: surface relaxation not valid when interpolating") 105 IF( ln_rnf ) CALL ctl_stop("sbcmod: adding runoff not valid when interpolating") 105 106 IF( nn_fwb /= 0) CALL ctl_stop("sbcmod: adjustment of freshwater budget not valid when interpolating") 106 107 ENDIF … … 212 213 213 214 #if key_agrif && defined key_agrif_nolim 214 215 ! use nolim code only if both key_agrif_nolim is set and logical is true 216 ! this way the logical can be false if there are no nests (ie AGRIF_FixedGrids.in has a zero) 217 218 IF( lk_nolim_nst) THEN 219 220 IF( Agrif_Root() ) THEN 221 ! 222 CALL agrif_nolim_extrap( kt ) 223 ! 224 ELSE 225 ! 226 CALL agrif_nolim_flx( kt ) 227 ! 228 ENDIF 229 230 ENDIF 231 #endif 232 233 IF( .NOT. lk_nolim_nst ) THEN 215 ! 216 IF( .NOT. Agrif_Root() ) THEN 217 ! 218 CALL agrif_nolim_flx( kt ) 219 ! 220 ELSE 221 #endif 234 222 235 223 SELECT CASE( nsbc ) ! Compute ocean surface boundary condition … … 250 238 END SELECT 251 239 240 #if key_agrif && defined key_agrif_nolim 241 ! 242 IF( lk_nolim_nst ) CALL agrif_nolim_extrap( kt ) 243 ! 244 ENDIF 245 #endif 246 252 247 ! Misc. Options 253 248 ! ------------- … … 271 266 IF( nclosea == 1 ) CALL sbc_clo( kt ) ! treatment of closed sea in the model domain 272 267 ! ! (update freshwater fluxes) 273 ENDIF274 !275 268 IF( MOD( kt-1, nn_fsbc ) == 0 ) THEN 276 269 CALL iom_put( "emp" , emp ) ! upward water flux
Note: See TracChangeset
for help on using the changeset viewer.