Changeset 920 for trunk/NEMO/OPA_SRC/SBC/sbcrnf.F90

Timestamp:

2008-05-09T13:26:34+02:00 (16 years ago)

Author:

rblod

Message:

Correct incompatibilities with Agrif (easier part), see ticket #133

File:

• trunk/NEMO/OPA_SRC/SBC/sbcrnf.F90 (modified) (2 diffs)

trunk/NEMO/OPA_SRC/SBC/sbcrnf.F90

@@ -34 +34 @@
    TYPE(FLD_N)       , PUBLIC ::   sn_rnf               !: information about the runoff file to be read
    TYPE(FLD_N)       , PUBLIC ::   sn_cnf               !: information about the runoff mouth file to be read
-   NAMELIST/namsbc_rnf/ cn_dir, nn_runoff, rn_hrnf, rn_avt_rnf, sn_rnf, sn_cnf
 
    INTEGER , PUBLIC                     ::   nkrnf = 0   !: number of levels over which Kz is increased at river mouths
@@ -67 +66 @@
       INTEGER  ::   ierror   ! temporary integer
       !!----------------------------------------------------------------------
+      NAMELIST/namsbc_rnf/ cn_dir, nn_runoff, rn_hrnf, rn_avt_rnf, sn_rnf, sn_cnf
       !                                                   !------------------!
       IF( kt == nit000 ) THEN                             !  Initialisation  !