Changeset 1116 for trunk/NEMO/OPA_SRC/SBC/sbcmod.F90

Timestamp:

2008-06-20T16:11:57+02:00 (16 years ago)

Author:

ctlod

Message:

trunk: clarify tha way to manage the runoffs fileds, see ticket: #162

File:

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

trunk/NEMO/OPA_SRC/SBC/sbcmod.F90

@@ -127 +127 @@
       ENDIF
 
-      IF( .NOT. ln_rnf )   nn_runoff = 0      ! no runoff, or runoff mouths
-      IF( nn_ice == 0  )   fr_i(:,:) = 0.e0   ! no ice in the domain, ice fraction is always zero
+      IF( .NOT. ln_rnf )   THEN                      ! no specific treatment in rivers mouths vicinity
+         ln_rnf_mouth = .false.                      
+         nkrnf = 0
+         rnfmsk(:,:) = 0.e0
+         rnfmsk_z(:) = 0.e0
+      ENDIF
+      IF( nn_ice == 0  )   fr_i(:,:) = 0.e0          ! no ice in the domain, ice fraction is always zero
 
       ! Check consistancy   !!gm mixture of real and integer : coding to be changed....