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 12592 for NEMO/branches/2020/dev_r12563_ASINTER-06_ABL_improvement/src/ABL/ablmod.F90 – NEMO

Ignore:
Timestamp:
2020-03-24T15:08:27+01:00 (3 years ago)
Author:
gsamson
Message:

correct mxld_abl & mxlm_abl init to avoid division by zero (ticket #2419)

File:
1 edited

Legend:

Unmodified
Added
Removed

  • NEMO/branches/2020/dev_r12563_ASINTER-06_ABL_improvement/src/ABL/ablmod.F90

    r12588 r12592  
    860860            ! 
    861861            DO ji = 1, jpi 
    862                mxld_abl ( ji, jj,    1 ) = 0._wp 
     862               mxld_abl ( ji, jj,    1 ) = mxl_min 
    863863               mxld_abl ( ji, jj, jpka ) = mxl_min 
    864                mxlm_abl ( ji, jj,    1 ) = 0._wp 
     864               mxlm_abl ( ji, jj,    1 ) = mxl_min 
    865865               mxlm_abl ( ji, jj, jpka ) = mxl_min 
    866866               zldw     ( ji,        1 ) = zrough(ji,jj) * rn_Lsfc 
Note: See TracChangeset for help on using the changeset viewer.