Changeset 3421 for trunk/NEMOGCM/NEMO/OPA_SRC/SBC/sbcrnf.F90

Timestamp:

2012-07-02T16:44:12+02:00 (12 years ago)

Author:

charris

Message:

#936 Changes as suggested by Gurvan et al (testing details in the ticket). Note that for ORCA1 results will change with either nn_closea=0 or 1 because the Caspian Sea is now coded as a closed sea.

File:

• trunk/NEMOGCM/NEMO/OPA_SRC/SBC/sbcrnf.F90 (modified) (1 diff)

trunk/NEMOGCM/NEMO/OPA_SRC/SBC/sbcrnf.F90

@@ -457 +457 @@
       CALL iom_close( inum )                                      ! close file
       
-      IF( nclosea == 1 )    CALL clo_rnf( rnfmsk )                ! closed sea inflow set as ruver mouth
-
-      rnfmsk_z(:)   = 0._wp                                        ! vertical structure 
+      IF( nn_closea == 1 )   CALL clo_rnf( rnfmsk )               ! closed sea inflow set as ruver mouth
+
+      rnfmsk_z(:)   = 0._wp                                       ! vertical structure 
       rnfmsk_z(1)   = 1.0
       rnfmsk_z(2)   = 1.0                                         ! **********