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

Timestamp:

2010-09-24T10:12:40+02:00 (14 years ago)

Author:

rfurner

Message:

changes to include volume flux in hdivn instead of ssha, currently not working correctly

File:

• branches/DEV_R1821_Rivers/NEMO/OPA_SRC/SBC/sbcrnf.F90 (modified) (1 diff)

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

@@ -50 +50 @@
    TYPE(FLD), ALLOCATABLE, DIMENSION(:) ::   sf_tmp_rnf    !: structure of input river runoff temperature (file information, fields read)  
  
-   REAL,    PUBLIC, DIMENSION(jpi,jpj) ::  rnf_dep         !: depth of runoff in m  
-   INTEGER, PUBLIC, DIMENSION(jpi,jpj) ::  rnf_mod_dep     !: depth of runoff in model levels  
-   REAL,    PUBLIC, DIMENSION(jpi,jpj) ::  rnf_sal         !: salinity of river runoff  
-   REAL,    PUBLIC, DIMENSION(jpi,jpj) ::  rnf_tmp         !: temperature of river runoff  
+   REAL(wp), PUBLIC, DIMENSION(jpi,jpj) ::  rnf_dep         !: depth of runoff in m
+   INTEGER,  PUBLIC, DIMENSION(jpi,jpj) ::  rnf_mod_dep     !: depth of runoff in model levels
+   REAL(wp), PUBLIC, DIMENSION(jpi,jpj) ::  rnf_sal         !: salinity of river runoff
+   REAL(wp), PUBLIC, DIMENSION(jpi,jpj) ::  rnf_tmp         !: temperature of river runoff
   
    INTEGER  ::  ji, jj ,jk    ! dummy loop indices