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 2528 for trunk/NEMOGCM/NEMO/NST_SRC/agrif_user.F90 – NEMO

Ignore:
Timestamp:
2010-12-27T18:33:53+01:00 (13 years ago)
Author:
rblod
Message:

Update NEMOGCM from branch nemo_v3_3_beta

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMOGCM/NEMO/NST_SRC/agrif_user.F90

    • Property svn:eol-style deleted
    r2031 r2528  
    11#if defined key_agrif 
    22   !!---------------------------------------------------------------------- 
    3    !!   OPA 9.0 , LOCEAN-IPSL (2006) 
     3   !! NEMO/NST 3.3 , NEMO Consortium (2010) 
    44   !! $Id$ 
    5    !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) 
     5   !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 
    66   !!---------------------------------------------------------------------- 
    77 
     
    5555   END SUBROUTINE Agrif_InitWorkspace 
    5656 
    57 #if ! defined key_off_tra 
     57#if ! defined key_offline 
    5858 
    5959   SUBROUTINE Agrif_InitValues 
     
    6666      USE oce  
    6767      USE dom_oce 
    68       USE opa 
     68      USE nemogcm 
    6969#if defined key_top 
    7070      USE trc 
     
    111111#endif 
    112112 
    113       Call opa_init  ! Initializations of each fine grid 
    114       Call agrif_opa_init 
     113      Call nemo_init  ! Initializations of each fine grid 
     114      Call agrif_nemo_init 
    115115 
    116116      ! 1. Declaration of the type of variable which have to be interpolated 
     
    308308#if defined key_top 
    309309        ! Check passive tracer cell 
    310         IF( ndttrc .ne. 1 ) THEN 
    311            WRITE(*,*) 'ndttrc should be equal to 1' 
     310        IF( nn_dttrc .ne. 1 ) THEN 
     311           WRITE(*,*) 'nn_dttrc should be equal to 1' 
    312312        ENDIF 
    313313#endif 
     
    339339      USE oce  
    340340      USE dom_oce 
    341       USE opa 
     341      USE nemogcm 
    342342      USE trc 
    343343      USE in_out_manager 
     
    359359#endif 
    360360 
    361       Call opa_init  ! Initializations of each fine grid 
    362       Call agrif_opa_init 
     361      Call nemo_init  ! Initializations of each fine grid 
     362      Call agrif_nemo_init 
    363363 
    364364      ! 1. Declaration of the type of variable which have to be interpolated 
     
    445445         ENDIF 
    446446        ! Check passive tracer cell 
    447         IF( ndttrc .ne. 1 ) THEN 
    448            WRITE(*,*) 'ndttrc should be equal to 1' 
     447        IF( nn_dttrc .ne. 1 ) THEN 
     448           WRITE(*,*) 'nn_dttrc should be equal to 1' 
    449449        ENDIF 
    450450 
     
    473473 
    474474 
    475    SUBROUTINE agrif_opa_init 
     475   SUBROUTINE agrif_nemo_init 
    476476      !!---------------------------------------------------------------------- 
    477477      !!                     *** ROUTINE agrif_init *** 
     
    484484      NAMELIST/namagrif/ nn_cln_update, rn_sponge_tra, rn_sponge_dyn, ln_spc_dyn 
    485485      !!---------------------------------------------------------------------- 
    486  
     486      ! 
    487487      REWIND( numnam )                ! Read namagrif namelist 
    488488      READ  ( numnam, namagrif ) 
     
    490490      IF(lwp) THEN                    ! control print 
    491491         WRITE(numout,*) 
    492          WRITE(numout,*) 'agrif_opa_init : AGRIF parameters' 
    493          WRITE(numout,*) '~~~~~~~~~~~~' 
     492         WRITE(numout,*) 'agrif_nemo_init : AGRIF parameters' 
     493         WRITE(numout,*) '~~~~~~~~~~~~~~~' 
    494494         WRITE(numout,*) '   Namelist namagrif : set AGRIF parameters' 
    495495         WRITE(numout,*) '      baroclinic update frequency       nn_cln_update = ', nn_cln_update 
     
    505505      visc_dyn      = rn_sponge_dyn 
    506506      ! 
    507     END SUBROUTINE agrif_opa_init 
     507    END SUBROUTINE agrif_nemo_init 
    508508 
    509509# if defined key_mpp_mpi 
     
    520520      !!---------------------------------------------------------------------- 
    521521      ! 
    522       SELECT CASE(i) 
    523       CASE(1) 
    524          indglob = indloc + nimppt(nprocloc+1) - 1 
    525       CASE(2) 
    526          indglob = indloc + njmppt(nprocloc+1) - 1  
    527       CASE(3) 
    528          indglob = indloc 
    529       CASE(4) 
    530          indglob = indloc 
     522      SELECT CASE( i ) 
     523      CASE(1)   ;   indglob = indloc + nimppt(nprocloc+1) - 1 
     524      CASE(2)   ;   indglob = indloc + njmppt(nprocloc+1) - 1  
     525      CASE(3)   ;   indglob = indloc 
     526      CASE(4)   ;   indglob = indloc 
    531527      END SELECT 
    532528      ! 
Note: See TracChangeset for help on using the changeset viewer.