Changeset 8079 for branches/UKMO/dev_r7573_xios_write/NEMOGCM/NEMO/OPA_SRC/TRA/traadv.F90

Timestamp:

2017-05-26T12:09:41+02:00 (7 years ago)

Author:

andmirek

Message:

#1882 a first working version with XIOS writing restart file. Works with MO suite u-am389

File:

• branches/UKMO/dev_r7573_xios_write/NEMOGCM/NEMO/OPA_SRC/TRA/traadv.F90 (modified) (2 diffs)

branches/UKMO/dev_r7573_xios_write/NEMOGCM/NEMO/OPA_SRC/TRA/traadv.F90

@@ -46 +46 @@
 
    !                              !!* Namelist namtra_adv *
-   LOGICAL ::   ln_traadv_cen2     ! 2nd order centered scheme flag
+!make ln_traadv_cen2 public. It's needed when XIOS is used to write restart file
+   LOGICAL, PUBLIC ::   ln_traadv_cen2     ! 2nd order centered scheme flag
    LOGICAL ::   ln_traadv_tvd      ! TVD scheme flag
    LOGICAL ::   ln_traadv_tvd_zts  ! TVD scheme flag with vertical sub time-stepping
@@ -257 +258 @@
       !
       CALL tra_adv_mle_init          ! initialisation of the Mixed Layer Eddy parametrisation (MLE)
+      lr_traadv_cen2 = ln_traadv_cen2
       !
    END SUBROUTINE tra_adv_init