Changeset 4749


Ignore:
Timestamp:
2014-08-18T12:15:26+02:00 (6 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:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMOGCM/NEMO/OFF_SRC/nemogcm.F90

    r4640 r4749  
    5151   USE trcnam 
    5252   USE trcrst 
     53   USE diaptr         ! Need to initialise this as some variables are used in if statements later 
    5354 
    5455   IMPLICIT NONE 
     
    298299      !                                     ! Passive tracers 
    299300                            CALL     trc_init   ! Passive tracers initialization 
    300  
     301      ! 
     302      ! Initialise diaptr as some variables are used in if statements later (in 
     303      ! various advection and diffusion routines. 
     304                            CALL dia_ptr_init 
     305      ! 
    301306      IF(lwp) WRITE(numout,cform_aaa)       ! Flag AAAAAAA 
    302307      ! 
Note: See TracChangeset for help on using the changeset viewer.