- Timestamp:
- 2012-11-26T11:58:31+01:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2012/dev_LOCEAN_UKMO_2012/NEMOGCM/NEMO/LIM_SRC_2/limtrp_2.F90
r3294 r3653 28 28 USE lib_mpp ! MPP library 29 29 USE wrk_nemo ! work arrays 30 # if defined key_agrif 31 USE agrif_lim2_interp ! nesting 32 # endif 30 33 31 34 IMPLICIT NONE … … 80 83 81 84 IF( kt == nit000 ) CALL lim_trp_init_2 ! Initialization (first time-step only) 85 86 # if defined key_agrif 87 CALL agrif_trp_lim2_load ! First interpolation 88 # endif 82 89 83 90 zsm(:,:) = area(:,:) … … 269 276 ENDIF 270 277 ! 278 # if defined key_agrif 279 CALL agrif_trp_lim2 ! Fill boundaries of the fine grid 280 # endif 281 ! 271 282 CALL wrk_dealloc( jpi, jpj, zui_u , zvi_v , zsm, zs0ice, zs0sn , zs0a, zs0c0 , zs0c1 , zs0c2 , zs0st ) 272 283 !
Note: See TracChangeset
for help on using the changeset viewer.