Ignore:
Timestamp:
2020-02-14T14:53:19+01:00 (14 months 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.1_FKOSM/src/OCE/TRA/tramle.F90

    r12323 r12386  
    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.