Changeset 4749 for trunk

Timestamp:

2014-08-18T12:15:26+02:00 (10 years ago)

Author:

timgraham

Message:

Added call to initialise diaptr in OFF_SRC/nemogcm.F90 so that if statements based on diaptr variables don't cause failures.
See ticket #1363

File:

• trunk/NEMOGCM/NEMO/OFF_SRC/nemogcm.F90 (modified) (2 diffs)

trunk/NEMOGCM/NEMO/OFF_SRC/nemogcm.F90

@@ -51 +51 @@
    USE trcnam
    USE trcrst
+   USE diaptr         ! Need to initialise this as some variables are used in if statements later
 
    IMPLICIT NONE
@@ -298 +299 @@
       !                                     ! Passive tracers
                             CALL     trc_init   ! Passive tracers initialization
-
+      !
+      ! Initialise diaptr as some variables are used in if statements later (in
+      ! various advection and diffusion routines.
+                            CALL dia_ptr_init
+      !
       IF(lwp) WRITE(numout,cform_aaa)       ! Flag AAAAAAA
       !