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 3680 for branches/2012/dev_MERGE_2012/NEMOGCM/NEMO/LIM_SRC_2 – NEMO

Ignore:
Timestamp:
2012-11-27T15:42:24+01:00 (11 years ago)
Author:
rblod
Message:

First commit of the final branch for 2012 (future nemo_3_5), see ticket #1028

Location:
branches/2012/dev_MERGE_2012/NEMOGCM/NEMO/LIM_SRC_2
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • branches/2012/dev_MERGE_2012/NEMOGCM/NEMO/LIM_SRC_2/limrhg_2.F90

    r3625 r3680  
    3232   USE oce     , ONLY : snwice_mass, snwice_mass_b 
    3333   USE lib_fortran    ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined)   
     34#if defined key_agrif 
     35   USE agrif_lim2_interp ! nesting 
     36#endif 
    3437 
    3538   IMPLICIT NONE 
     
    148151         zpice(:,:) = ssh_m(:,:) 
    149152      ENDIF 
     153#if defined key_agrif 
     154      ! load the boundary value of velocity in special array zuive and zvice 
     155      CALL agrif_rhg_lim2_load 
     156#endif 
    150157 
    151158      ! Ice mass, ice strength, and wind stress at the center            | 
     
    552559            CALL lbc_lnk( zv_n(:,1:jpj), 'I', -1. ) 
    553560 
     561#if defined key_agrif 
     562            ! copy the boundary value from u_ice_nst and v_ice_nst to u_ice and v_ice 
     563            ! before next interations 
     564            CALL agrif_rhg_lim2(zu_n,zv_n) 
     565#endif 
     566 
    554567            ! Test of Convergence 
    555568            DO jj = k_j1+1 , k_jpj-1 
  • branches/2012/dev_MERGE_2012/NEMOGCM/NEMO/LIM_SRC_2/limtrp_2.F90

    r3294 r3680  
    2828   USE lib_mpp         ! MPP library 
    2929   USE wrk_nemo        ! work arrays 
     30# if defined key_agrif 
     31   USE agrif_lim2_interp ! nesting 
     32# endif 
    3033 
    3134   IMPLICIT NONE 
     
    8083 
    8184      IF( kt == nit000  )   CALL lim_trp_init_2      ! Initialization (first time-step only) 
     85 
     86# if defined key_agrif 
     87      CALL agrif_trp_lim2_load      ! First interpolation 
     88# endif 
    8289 
    8390      zsm(:,:) = area(:,:) 
     
    269276      ENDIF 
    270277      ! 
     278# if defined key_agrif 
     279      CALL agrif_trp_lim2      ! Fill boundaries of the fine grid 
     280# endif 
     281      !  
    271282      CALL wrk_dealloc( jpi, jpj, zui_u , zvi_v , zsm, zs0ice, zs0sn , zs0a, zs0c0 , zs0c1 , zs0c2 , zs0st ) 
    272283      ! 
Note: See TracChangeset for help on using the changeset viewer.