Changeset 6736 for branches/NERC/dev_r3874_FASTNEt/NEMOGCM/NEMO/LIM_SRC_2/limtrp_2.F90

Timestamp:

2016-06-24T09:50:27+02:00 (8 years ago)

Author:

jamesharle

Message:

FASTNEt code modifications

File:

• branches/NERC/dev_r3874_FASTNEt/NEMOGCM/NEMO/LIM_SRC_2/limtrp_2.F90 (modified) (3 diffs)

branches/NERC/dev_r3874_FASTNEt/NEMOGCM/NEMO/LIM_SRC_2/limtrp_2.F90

@@ -28 +28 @@
    USE lib_mpp         ! MPP library
    USE wrk_nemo        ! work arrays
-# if defined key_agrif
-   USE agrif_lim2_interp ! nesting
-# endif
    USE lib_fortran     ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined)
 
@@ -84 +81 @@
 
       IF( kt == nit000  )   CALL lim_trp_init_2      ! Initialization (first time-step only)
-
-# if defined key_agrif
-      CALL agrif_trp_lim2_load      ! First interpolation
-# endif
 
       zsm(:,:) = area(:,:)
@@ -277 +270 @@
       ENDIF
       !
-# if defined key_agrif
-      CALL agrif_trp_lim2      ! Fill boundaries of the fine grid
-# endif
-      ! 
       CALL wrk_dealloc( jpi, jpj, zui_u , zvi_v , zsm, zs0ice, zs0sn , zs0a, zs0c0 , zs0c1 , zs0c2 , zs0st )
       !