Changeset 2127 for branches/DEV_R1821_Rivers/NEMO/OPA_SRC/SBC/sbcrnf.F90

Timestamp:

2010-09-28T13:54:33+02:00 (14 years ago)

Author:

rfurner

Message:

Changes to trasbc, rnf effects now dealt with correctly

File:

• branches/DEV_R1821_Rivers/NEMO/OPA_SRC/SBC/sbcrnf.F90 (modified) (3 diffs)

branches/DEV_R1821_Rivers/NEMO/OPA_SRC/SBC/sbcrnf.F90

@@ -84 +84 @@
       !!
       INTEGER  ::   ji, jj   ! dummy loop indices
-      INTEGER  ::   ierror   ! temporary integer
       !!----------------------------------------------------------------------
       !                                   
@@ -120 +119 @@
                rnf_tmp(:,:) = ( sf_tmp_rnf(1)%fnow(:,:) )  
             ELSE  
-               rnf_sal(:,:) = 0  
+               rnf_sal(:,:) = 0.0
                rnf_tmp(:,:) = -999  
             ENDIF  
@@ -142 +141 @@
       !!----------------------------------------------------------------------
       CHARACTER(len=32) ::   rn_dep_file   ! runoff file name  
+      INTEGER  ::   ierror   ! temporary integer
       !! 
       NAMELIST/namsbc_rnf/ cn_dir, ln_rnf_emp, sn_rnf, sn_cnf, sn_sal_rnf, sn_tmp_rnf, sn_dep_rnf,   &