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 3653 for branches/2012/dev_LOCEAN_UKMO_2012/NEMOGCM/NEMO/LIM_SRC_3/limrhg.F90 – NEMO

Ignore:
Timestamp:
2012-11-26T11:58:31+01:00 (11 years ago)
Author:
cetlod
Message:

commit the changes from LOCEAN & UKMO merge, see ticket #1021

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/2012/dev_LOCEAN_UKMO_2012/NEMOGCM/NEMO/LIM_SRC_3/limrhg.F90

    r3294 r3653  
    88   !!             -   !  2008-11  (M. Vancoppenolle, S. Bouillon, Y. Aksenov) add surface tilt in ice rheolohy  
    99   !!            3.3  !  2009-05  (G.Garric) addition of the lim2_evp cas 
    10    !!            4.0  !  2011-01  (A Porter)  dynamical allocation  
     10   !!            3.4  !  2011-01  (A. Porter)  dynamical allocation  
     11   !!            3.5  !  2012-08  (R. Benshila)  AGRIF  
    1112   !!---------------------------------------------------------------------- 
    1213#if defined key_lim3 || (  defined key_lim2 && ! defined key_lim2_vp ) 
    … …  
    3435   USE ice_2            ! LIM2: ice variables 
    3536   USE dom_ice_2        ! LIM2: ice domain 
     37#endif 
     38#if defined key_agrif && defined key_lim2 
     39   USE agrif_lim2_interp 
    3640#endif 
    3741 
    … …  
    162166     at_i(:,:) = 1. - frld(:,:) 
    163167#endif 
     168#if defined key_agrif && defined key_lim2  
     169    CALL agrif_rhg_lim2_load      ! First interpolation of coarse values 
     170#endif 
    164171      ! 
    165172      !------------------------------------------------------------------------------! 
    … …  
    488495 
    489496            CALL lbc_lnk( u_ice(:,:), 'U', -1. ) 
     497#if defined key_agrif 
     498            CALL agrif_rhg_lim2( jter, nevp, 'U' ) 
     499#endif 
    490500 
    491501!CDIR NOVERRCHK 
    … …  
    513523 
    514524            CALL lbc_lnk( v_ice(:,:), 'V', -1. ) 
     525#if defined key_agrif 
     526            CALL agrif_rhg_lim2( jter, nevp, 'V' ) 
     527#endif 
    515528 
    516529         ELSE  
    … …  
    539552 
    540553            CALL lbc_lnk( v_ice(:,:), 'V', -1. ) 
     554#if defined key_agrif 
     555            CALL agrif_rhg_lim2( jter, nevp , 'V' ) 
     556#endif 
    541557 
    542558!CDIR NOVERRCHK 
    … …  
    567583 
    568584            CALL lbc_lnk( u_ice(:,:), 'U', -1. ) 
     585#if defined key_agrif 
     586            CALL agrif_rhg_lim2( jter, nevp, 'U' ) 
     587#endif 
    569588 
    570589         ENDIF 
    … …  
    607626      CALL lbc_lnk( u_ice(:,:), 'U', -1. )  
    608627      CALL lbc_lnk( v_ice(:,:), 'V', -1. )  
     628#if defined key_agrif 
     629      CALL agrif_rhg_lim2( nevp , nevp, 'U' ) 
     630      CALL agrif_rhg_lim2( nevp , nevp, 'V' ) 
     631#endif 
    609632 
    610633      DO jj = k_j1+1, k_jpj-1  
Note: See TracChangeset for help on using the changeset viewer.