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 9409 for branches/2017/dev_merge_2017/NEMOGCM/NEMO/LIM_SRC_3/icestp.F90 – NEMO

Ignore:
Timestamp:
2018-03-16T19:15:43+01:00 (7 years ago)
Author:
clem
Message:

debug to avoid crashing when -O0 optimization and ln_icediachk activated

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/2017/dev_merge_2017/NEMOGCM/NEMO/LIM_SRC_3/icestp.F90

    r9169 r9409  
    413413      cnd_ice   (:,:,:) = 0._wp   ! initialisation of the effective conductivity at the top of ice/snow (Jules coupling) 
    414414      ! 
     415      ! for control checks (ln_icediachk) 
     416      diag_trp_vi(:,:) = 0._wp   ;   diag_trp_vs(:,:) = 0._wp 
     417      diag_trp_ei(:,:) = 0._wp   ;   diag_trp_es(:,:) = 0._wp 
     418      diag_trp_sv(:,:) = 0._wp 
     419 
    415420   END SUBROUTINE diag_set0 
    416421 
Note: See TracChangeset for help on using the changeset viewer.