Changeset 1790 for branches/dev_005_AWL/NEMO/NST_SRC

Timestamp:

2009-12-09T09:29:24+01:00 (15 years ago)

Author:

sga

Message:

correct logic: no forcing in outer model is probably not good, 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.
+   LOGICAL, PUBLIC                ::   lk_nolim_nst
    INTEGER, PARAMETER             ::   jp_nst = 10  ! maximum number of grids to remember
    INTEGER                        ::   mp_nst       ! number of grids remembered
@@ -77 +77 @@
 
       !!----------------------------------------------------------------------
+
+      ! logical is always true in a nest by definition,
+      ! it is true in the outer model only if there is a nest present
+
+      lk_nolim_nst = .TRUE.
 
       IF( .NOT. Agrif_Root() ) RETURN
@@ -144 +149 @@
   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.
+      !  unset logical if we have don't any nests to run with
+      !
+      IF( mp_nst == 0 ) lk_nolim_nst = .FALSE.
 
    END SUBROUTINE agrif_nolim_init