Changeset 1789 for branches/dev_005_AWL/NEMO
- Timestamp:
- 2009-12-08T16:17:43+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
r1788 r1789 34 34 PUBLIC agrif_nolim_extrap 35 35 36 LOGICAL, PUBLIC :: lk_nolim_nst = .TRUE. 36 37 INTEGER, PARAMETER :: jp_nst = 10 ! maximum number of grids to remember 37 38 INTEGER :: mp_nst ! number of grids remembered … … 142 143 143 144 100 CONTINUE 145 146 ! only set logical if we have any nests to run with 147 lk_nolim_nst = .FALSE. 148 IF( mp_nst > 0 ) lk_nolim_nst = .TRUE. 144 149 145 150 END SUBROUTINE agrif_nolim_init … … 474 479 475 480 #else 481 ! 482 LOGICAL, PUBLIC :: lk_nolim_nst = .FALSE. 483 ! 476 484 CONTAINS 477 SUBROUTINE Agrif_flx_Interp_empty485 SUBROUTINE agrif_nolim_init( ) 478 486 !!--------------------------------------------- 479 !! *** ROUTINE agrif_ flx_Interp_empty***487 !! *** ROUTINE agrif_nolim_init *** 480 488 !!--------------------------------------------- 481 WRITE(*,*) 'agrif_flx_interp : You should not have seen this print! error?' 482 END SUBROUTINE Agrif_flx_Interp_empty 489 WRITE(*,*) 'agrif_nolim_init : You should not have seen this print! error?' 490 END SUBROUTINE agrif_nolim_init 491 SUBROUTINE agrif_nolim_extrap( ) 492 !!--------------------------------------------- 493 !! *** ROUTINE agrif_nolim_extrap *** 494 !!--------------------------------------------- 495 WRITE(*,*) 'agrif_nolim_extrap : You should not have seen this print! error?' 496 END SUBROUTINE agrif_nolim_extrap 497 SUBROUTINE agrif_nolim_flx( ) 498 !!--------------------------------------------- 499 !! *** ROUTINE agrif_nolim_flx *** 500 !!--------------------------------------------- 501 WRITE(*,*) 'agrif_nolim_flx : You should not have seen this print! error?' 502 END SUBROUTINE agrif_nolim_flx 483 503 #endif 484 504 !!====================================================================== -
branches/dev_005_AWL/NEMO/OPA_SRC/SBC/sbcmod.F90
r1786 r1789 37 37 USE iom 38 38 USE in_out_manager ! I/O manager 39 #if defined key_agrif_nolim40 39 USE agrif_nolim 41 #endif42 40 43 41 IMPLICIT NONE … … 215 213 #if key_agrif && defined key_agrif_nolim 216 214 217 IF( Agrif_Root() ) THEN 218 ! 219 CALL agrif_nolim_extrap( kt ) 220 ! 221 ELSE 222 ! 223 CALL agrif_nolim_flx( kt ) 224 ! 225 ENDIF 226 227 #else 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 228 234 229 235 SELECT CASE( nsbc ) ! Compute ocean surface boundary condition … … 265 271 IF( nclosea == 1 ) CALL sbc_clo( kt ) ! treatment of closed sea in the model domain 266 272 ! ! (update freshwater fluxes) 267 #endif 273 ENDIF 268 274 ! 269 275 IF( MOD( kt-1, nn_fsbc ) == 0 ) THEN
Note: See TracChangeset
for help on using the changeset viewer.