Changeset 2528 for trunk/NEMOGCM/NEMO/OPA_SRC/OBC/obcvol.F90
- Timestamp:
- 2010-12-27T18:33:53+01:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/OPA_SRC/OBC/obcvol.F90
- Property svn:eol-style deleted
r1739 r2528 28 28 # include "obc_vectopt_loop_substitute.h90" 29 29 !!--------------------------------------------------------------------------------- 30 !! OPA 9.0 , LOCEAN-IPSL (2005)30 !! NEMO/OPA 3.3 , NEMO Consortium (2010) 31 31 !! $Id$ 32 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt32 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 33 33 !!--------------------------------------------------------------------------------- 34 34 … … 97 97 ! --------------------------------------------------------------------------- 98 98 99 zCflxemp = SUM ( emp(:,:)*obctmsk(:,:)* e1t(:,:) * e2t(:,:) / rau0 )99 zCflxemp = SUM ( ( emp(:,:)-rnf(:,:) )*obctmsk(:,:)* e1t(:,:) * e2t(:,:) / rau0 ) 100 100 101 101 IF( lk_mpp ) CALL mpp_sum( zCflxemp ) ! sum over the global domain
Note: See TracChangeset
for help on using the changeset viewer.