- Timestamp:
- 2009-12-09T09:29:24+01:00 (15 years ago)
- Location:
- branches/dev_005_AWL/NEMO
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/dev_005_AWL/NEMO/NST_SRC/agrif_nolim_interp.F90
r1789 r1790 34 34 PUBLIC agrif_nolim_extrap 35 35 36 LOGICAL, PUBLIC :: lk_nolim_nst = .TRUE.36 LOGICAL, PUBLIC :: lk_nolim_nst 37 37 INTEGER, PARAMETER :: jp_nst = 10 ! maximum number of grids to remember 38 38 INTEGER :: mp_nst ! number of grids remembered … … 77 77 78 78 !!---------------------------------------------------------------------- 79 80 ! logical is always true in a nest by definition, 81 ! it is true in the outer model only if there is a nest present 82 83 lk_nolim_nst = .TRUE. 79 84 80 85 IF( .NOT. Agrif_Root() ) RETURN … … 144 149 100 CONTINUE 145 150 146 ! only set logical if we haveany nests to run with147 lk_nolim_nst = .FALSE.148 IF( mp_nst > 0 ) lk_nolim_nst = .TRUE.151 ! unset logical if we have don't any nests to run with 152 ! 153 IF( mp_nst == 0 ) lk_nolim_nst = .FALSE. 149 154 150 155 END SUBROUTINE agrif_nolim_init -
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.