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

Ignore:
Timestamp:
2019-01-22T12:36:01+01:00 (5 years ago)
Author:
clem
Message:

choose to update ice velocity every sub-iteration in rheology or not (temporary logical has been added in icedyn_rhg_evp.F90). For now it has been set to false, so there is no update at each sub-iteration

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r10415 r10555  
    567567               DO ji = 1 , jpi 
    568568                  IF( pe_i(ji,jj,jk,jl) < 0._wp .OR. pa_i(ji,jj,jl) < 0._wp ) THEN 
    569                      hfx_res(ji,jj)   = hfx_res(ji,jj) - pe_i(ji,jj,jk,jl) * r1_rdtice ! W.m-2 <0 
     569                     hfx_res(ji,jj)   = hfx_res(ji,jj) - pe_i(ji,jj,jk,jl) * r1_rdtice ! W.m-2 >0 
    570570                     pe_i(ji,jj,jk,jl) = 0._wp 
    571571                  ENDIF 
Note: See TracChangeset for help on using the changeset viewer.