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 12387 for NEMO/branches/UKMO/NEMO_4.0_FKOSM/src/OCE/TRA/tramle.F90 – NEMO

Ignore:
Timestamp:
2020-02-14T14:55:00+01:00 (4 years ago)
Author:
cguiavarch
Message:

corrections to tramle & zdfosm to avoid division by 0 and restored OSMOSIS variables in output.abort

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/UKMO/NEMO_4.0_FKOSM/src/OCE/TRA/tramle.F90

    r12311 r12387  
    254254    DO jj = 1, jpjm1 
    255255       DO ji = 1, fs_jpim1   ! vector opt. 
    256           zhu(ji,jj) = 1._wp / zhu(ji,jj)                   ! hu --> 1/hu 
    257           zhv(ji,jj) = 1._wp / zhv(ji,jj) 
     256          zhu(ji,jj) = 1._wp / MAX(zhu(ji,jj), rsmall)                   ! hu --> 1/hu 
     257          zhv(ji,jj) = 1._wp / MAX(zhv(ji,jj), rsmall)  
    258258       END DO 
    259259    END DO 
Note: See TracChangeset for help on using the changeset viewer.