New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 5969 for branches/2015/dev_r5151_UKMO_ISF/NEMOGCM/NEMO/OPA_SRC/SBC/sbcisf.F90 – NEMO

Ignore:
Timestamp:
2015-12-01T18:17:43+01:00 (8 years ago)
Author:
mathiot
Message:

ISF: modifications to compile and run SETTE tests

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/2015/dev_r5151_UKMO_ISF/NEMOGCM/NEMO/OPA_SRC/SBC/sbcisf.F90

    r5956 r5969  
    388388               ! For those corresponding to zonal boundary     
    389389               qisf(ji,jj) = - rau0 * rcp * rn_gammat0 * risfLeff(ji,jj) * e1t(ji,jj) * zt_ave  & 
    390                            & * r1_e12t(ji,jj) * tmask(ji,jj,jk) 
     390                           & * r1_e1e2t(ji,jj) * tmask(ji,jj,jk) 
    391391              
    392392               fwfisf(ji,jj) = qisf(ji,jj) / rlfusisf          !fresh water flux kg/(m2s)                   
Note: See TracChangeset for help on using the changeset viewer.