Changeset 1938 for branches/DEV_R1821_Rivers/NEMO/OPA_SRC/OBC/obcvol.F90

Timestamp:

2010-06-16T16:34:29+02:00 (14 years ago)

Author:

rfurner

Message:

rnf has been separated from emp and emps. Also temperature and salinity of runoff can be specified, and runoff can be added to a user specified depth

File:

• branches/DEV_R1821_Rivers/NEMO/OPA_SRC/OBC/obcvol.F90 (modified) (1 diff)

branches/DEV_R1821_Rivers/NEMO/OPA_SRC/OBC/obcvol.F90

@@ -97 +97 @@
       ! ---------------------------------------------------------------------------
 
-      zCflxemp = SUM ( emp(:,:)*obctmsk(:,:)* e1t(:,:) * e2t(:,:)  / rau0 )
+      zCflxemp = SUM ( ( emp(:,:)-rnf(:,:) )*obctmsk(:,:)* e1t(:,:) * e2t(:,:)  / rau0 ) 
 
       IF( lk_mpp )   CALL mpp_sum( zCflxemp )   ! sum over the global domain