Changeset 1998 for branches/DEV_R1821_Rivers/NEMO/OPA_SRC/DOM/closea.F90

Timestamp:

2010-07-08T17:12:21+02:00 (14 years ago)

Author:

acc

Message:

ticket #465_Rivers tidied code and added namelist changes in preparation for mid-year merge

File:

• branches/DEV_R1821_Rivers/NEMO/OPA_SRC/DOM/closea.F90 (modified) (2 diffs)

branches/DEV_R1821_Rivers/NEMO/OPA_SRC/DOM/closea.F90

@@ -182 +182 @@
       REAL(wp), DIMENSION (jpncs) ::   zfwf 
  
-      REAL(wp), DIMENSION (jpi,jpj)       ::   fwf              !: fresh water flux,for volume: emp-rnf  
-      REAL(wp), DIMENSION (jpi,jpj)       ::   fwfs             !: fresh water flux, for conc/dilution effect: emps-rnf  
       !!----------------------------------------------------------------------
       !
@@ -283 +281 @@
       END DO 
       !
-      fwf(:,:)  = emp(:,:)  - rnf(:,:)  
-      fwfs(:,:) = emps(:,:) - rnf(:,:)  
-      CALL lbc_lnk( fwf , 'T', 1. ) 
-      CALL lbc_lnk( fwfs, 'T', 1. ) 
+      CALL lbc_lnk( emp , 'T', 1. )
+      CALL lbc_lnk( emps, 'T', 1. )
       !
    END SUBROUTINE sbc_clo