Ignore:
Timestamp:
2010-07-08T17:12:21+02:00 (10 years ago)
Author:
acc
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/DEV_R1821_Rivers/NEMO/OPA_SRC/DOM/closea.F90

    r1938 r1998  
    182182      REAL(wp), DIMENSION (jpncs) ::   zfwf  
    183183  
    184       REAL(wp), DIMENSION (jpi,jpj)       ::   fwf              !: fresh water flux,for volume: emp-rnf   
    185       REAL(wp), DIMENSION (jpi,jpj)       ::   fwfs             !: fresh water flux, for conc/dilution effect: emps-rnf   
    186184      !!---------------------------------------------------------------------- 
    187185      ! 
     
    283281      END DO  
    284282      ! 
    285       fwf(:,:)  = emp(:,:)  - rnf(:,:)   
    286       fwfs(:,:) = emps(:,:) - rnf(:,:)   
    287       CALL lbc_lnk( fwf , 'T', 1. )  
    288       CALL lbc_lnk( fwfs, 'T', 1. )  
     283      CALL lbc_lnk( emp , 'T', 1. ) 
     284      CALL lbc_lnk( emps, 'T', 1. ) 
    289285      ! 
    290286   END SUBROUTINE sbc_clo 
Note: See TracChangeset for help on using the changeset viewer.