Changeset 6134 for branches/2015/dev_merge_2015/NEMOGCM/NEMO/OFF_SRC/nemogcm.F90

Timestamp:

2015-12-18T16:01:55+01:00 (8 years ago)

Author:

lovato

Message:

Add changes proposed in ticket #1252 and #1645 (related to runoff data sharing)

File:

• branches/2015/dev_merge_2015/NEMOGCM/NEMO/OFF_SRC/nemogcm.F90 (modified) (2 diffs)

branches/2015/dev_merge_2015/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)