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 2357 for branches/nemo_v3_3_beta/NEMOGCM/NEMO – NEMO

Ignore:
Timestamp:
2010-11-04T19:07:41+01:00 (13 years ago)
Author:
rblod
Message:

Adaptation for nec compiler in limrhg.F90,part 2

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/nemo_v3_3_beta/NEMOGCM/NEMO/LIM_SRC_3/limrhg.F90

    r2356 r2357  
    190190 
    191191#if  defined key_lim2 && ! defined key_lim2_vp 
     192# if defined key_agrif 
    192193     USE ice_2, vt_s => hsnm 
    193194     USE ice_2, vt_i => hicm 
     195# else 
     196     vt_s => hsnm 
     197     vt_i => hicm 
     198# endif 
    194199     at_i(:,:) = 1. - frld(:,:) 
    195200#endif 
Note: See TracChangeset for help on using the changeset viewer.