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 9910 for NEMO/trunk/src/ICE/icethd_dh.F90 – NEMO

Ignore:
Timestamp:
2018-07-10T12:33:32+02:00 (6 years ago)
Author:
clem
Message:

cosmetics mostly

File:
1 edited

Legend:

Unmodified
Added
Removed

  • NEMO/trunk/src/ICE/icethd_dh.F90

    r9767 r9910  
    137137         ! 
    138138         DO ji = 1, npti 
    139             zdum           = qns_ice_1d(ji) + qsr_ice_1d(ji) - qsr_ice_tr_1d(ji) - fc_su(ji) 
     139            zdum           = qns_ice_1d(ji) + qsr_ice_1d(ji) - qtr_ice_top_1d(ji) - fc_su(ji) 
    140140            qml_ice_1d(ji) = zdum * MAX( 0._wp , SIGN( 1._wp, t_su_1d(ji) - rt0 ) ) 
    141141            zq_su(ji)      = MAX( 0._wp, qml_ice_1d(ji) * rdt_ice ) 
    … …  
    145145         ! 
    146146         DO ji = 1, npti 
    147             zdum           = qns_ice_1d(ji) + qsr_ice_1d(ji) - qsr_ice_tr_1d(ji) - fc_su(ji)  
     147            zdum           = qns_ice_1d(ji) + qsr_ice_1d(ji) - qtr_ice_top_1d(ji) - fc_su(ji)  
    148148            qml_ice_1d(ji) = zdum * MAX( 0._wp , SIGN( 1._wp, t_su_1d(ji) - rt0 ) ) 
    149149            zq_su(ji)      = MAX( 0._wp, qml_ice_1d(ji) * rdt_ice ) 
Note: See TracChangeset for help on using the changeset viewer.