Changeset 150 for trunk/NEMO

Timestamp:

2004-10-19T15:32:31+02:00 (20 years ago)

Author:

opalod

Message:

CL + CT: BUGFIX095: Add "USE flxrnf" module for runoff array

File:

• trunk/NEMO/OPA_SRC/SBC/flx_coupled_noice.h90 (modified) (3 diffs)

trunk/NEMO/OPA_SRC/SBC/flx_coupled_noice.h90

@@ -30 +30 @@
       !!----------------------------------------------------------------------
       !! * Modules used
-      USE ioipsl
-      USE cpl_oce 
+      USE ioipsl                ! NetCDF IPSL library
+      USE cpl_oce               ! coupled ocean-atmosphere variables
+      USE flxrnf                ! ocean runoffs 
 
       !! * arguments
@@ -38 +39 @@
       !! * Local declarations
       INTEGER  ::   ji, jj, jf
-      INTEGER  ::   itm1, isize, iflag, icpliter
+      INTEGER  ::   itm1, isize, iflag
+!      INTEGER  ::   icpliter
       INTEGER  ::   info, inuread, index
 
@@ -53 +55 @@
 
       ! Addition for SIPC CASE
-      CHARACTER (len=3) ::   clmodinf       ! Header or not
-      CHARACTER (len=3) ::   cljobnam_r    ! Experiment name in the field brick, if any 
+!      CHARACTER (len=3) ::   clmodinf       ! Header or not
+!      CHARACTER (len=3) ::   cljobnam_r    ! Experiment name in the field brick, if any 
       INTEGER infos(3)          ! infos in the field brick, if any
       !!---------------------------------------------------------------------