Changeset 190 for trunk/NEMO/OPA_SRC/DIA/diaptr.F90

Timestamp:

2004-12-22T16:32:49+01:00 (19 years ago)

Author:

opalod

Message:

CT : BUGFIX131 : suppress the use of ln_diaptr in opa.F90 and set the default value of ln_diaptr to FALSE in diaptr.F90

File:

• trunk/NEMO/OPA_SRC/DIA/diaptr.F90 (modified) (1 diff)

trunk/NEMO/OPA_SRC/DIA/diaptr.F90

@@ -38 +38 @@
    !! * Share Module variables
    LOGICAL, PUBLIC ::   & !!! ** init namelist (namptr) **
-      ln_diaptr = .TRUE.   !: Poleward transport flag (T) or not (F)
+      ln_diaptr = .FALSE.   !: Poleward transport flag (T) or not (F)
    INTEGER, PUBLIC ::   &  !!: ** ptr namelist (namptr) **
       nf_ptr = 15           !: frequency of ptr computation