Changeset 1789 for branches/dev_005_AWL/NEMO/NST_SRC

Timestamp:

2009-12-08T16:17:43+01:00 (15 years ago)

Author:

sga

Message:

add a logical so that code can be run with nolim key set, but zero nests, NEMO branch dev_005_AWL

File:

• branches/dev_005_AWL/NEMO/NST_SRC/agrif_nolim_interp.F90 (modified) (3 diffs)

branches/dev_005_AWL/NEMO/NST_SRC/agrif_nolim_interp.F90

@@ -34 +34 @@
    PUBLIC agrif_nolim_extrap
 
+   LOGICAL, PUBLIC                ::   lk_nolim_nst = .TRUE.
    INTEGER, PARAMETER             ::   jp_nst = 10  ! maximum number of grids to remember
    INTEGER                        ::   mp_nst       ! number of grids remembered
@@ -142 +143 @@
 
   100 CONTINUE
+
+      !  only set logical if we have any nests to run with
+      lk_nolim_nst = .FALSE.
+      IF( mp_nst > 0 ) lk_nolim_nst = .TRUE.
 
    END SUBROUTINE agrif_nolim_init
@@ -474 +479 @@
 
 #else
+   !
+   LOGICAL, PUBLIC                ::   lk_nolim_nst = .FALSE.
+   !
 CONTAINS
-   SUBROUTINE Agrif_flx_Interp_empty
+   SUBROUTINE agrif_nolim_init( )
       !!---------------------------------------------
-      !!   *** ROUTINE agrif_flx_Interp_empty ***
+      !!   *** ROUTINE agrif_nolim_init  ***
       !!---------------------------------------------
-      WRITE(*,*)  'agrif_flx_interp : You should not have seen this print! error?'
-   END SUBROUTINE Agrif_flx_Interp_empty
+      WRITE(*,*)  'agrif_nolim_init : You should not have seen this print! error?'
+   END SUBROUTINE agrif_nolim_init
+   SUBROUTINE agrif_nolim_extrap( )
+      !!---------------------------------------------
+      !!   *** ROUTINE agrif_nolim_extrap  ***
+      !!---------------------------------------------
+      WRITE(*,*)  'agrif_nolim_extrap : You should not have seen this print! error?'
+   END SUBROUTINE agrif_nolim_extrap
+   SUBROUTINE agrif_nolim_flx( )
+      !!---------------------------------------------
+      !!   *** ROUTINE agrif_nolim_flx  ***
+      !!---------------------------------------------
+      WRITE(*,*)  'agrif_nolim_flx : You should not have seen this print! error?'
+   END SUBROUTINE agrif_nolim_flx
 #endif
    !!======================================================================