Changeset 7351 for branches/2016/dev_INGV_UKMO_2016/NEMOGCM/NEMO/OFF_SRC/nemogcm.F90

Timestamp:

2016-11-28T17:04:10+01:00 (7 years ago)

Author:

emanuelaclementi

Message:

ticket #1805 step 3: /2016/dev_INGV_UKMO_2016 aligned to the trunk at revision 7161

File:

• branches/2016/dev_INGV_UKMO_2016/NEMOGCM/NEMO/OFF_SRC/nemogcm.F90 (modified) (3 diffs)

branches/2016/dev_INGV_UKMO_2016/NEMOGCM/NEMO/OFF_SRC/nemogcm.F90

@@ -52 +52 @@
    USE trcrst
    USE diaptr         ! Need to initialise this as some variables are used in if statements later
+   USE sbc_oce, ONLY: ln_rnf
+   USE sbcrnf
 
    IMPLICIT NONE
@@ -94 +96 @@
       !                            !-----------------------!
       istp = nit000
+      !
+      ! Initialize arrays of runoffs structures and read data from the namelist
+      IF ( ln_rnf ) CALL sbc_rnf(istp)
       ! 
       CALL iom_init( cxios_context )            ! iom_put initialization (must be done after nemo_init for AGRIF+XIOS+OASIS)
@@ -148 +153 @@
       NAMELIST/namctl/ ln_ctl  , nn_print, nn_ictls, nn_ictle,   &
          &             nn_isplt, nn_jsplt, nn_jctls, nn_jctle,   &
-         &             nn_bench, nn_timing
+         &             nn_bench, nn_timing, nn_diacfl
       NAMELIST/namcfg/ cp_cfg, cp_cfz, jp_cfg, jpidta, jpjdta, jpkdta, jpiglo, jpjglo, &
          &             jpizoom, jpjzoom, jperio, ln_use_jattr