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 2380 for branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/DIA/diafwb.F90 – NEMO

Ignore:
Timestamp:
2010-11-12T20:31:16+01:00 (13 years ago)
Author:
acc
Message:

nemo_v3_3beta. ORCA_R1 settings (step 2, see ticket #758). Introduces key_orca_r1 (46 level default, 75 level if key_orca_r1=75)

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/DIA/diafwb.F90

    r2287 r2380  
    88   !!            9.0  !  05-11  (V. Garnier) Surface pressure gradient organization 
    99   !!---------------------------------------------------------------------- 
    10 #if ( defined key_orca_r2 || defined  key_orca_r4 ) && ! defined key_coupled 
    11    !!---------------------------------------------------------------------- 
    12    !!   "key_orca_r2 or 4" 
     10#if (  defined key_orca_r1 || defined key_orca_r2 || defined  key_orca_r4 ) && ! defined key_coupled 
     11   !!---------------------------------------------------------------------- 
     12   !!   "key_orca_r1 or 2 or 4" 
    1313   !!---------------------------------------------------------------------- 
    1414   !!---------------------------------------------------------------------- 
    … …  
    163163            ij0 = 102   ;   ij1 = 102 
    164164            !                                        ! ======================= 
     165         CASE ( 1 )                                  !  ORCA_R1 configurations 
     166            !                                        ! ======================= 
     167            ii0 = 283   ;   ii1 = 283 
     168            ij0 = 200   ;   ij1 = 200 
     169            !                                        ! ======================= 
    165170         CASE DEFAULT                                !    ORCA R05 or R025 
    166171            !                                        ! ======================= 
    … …  
    204209            ii0 = 137   ;   ii1 = 137 
    205210            ij0 = 101   ;   ij1 = 102 
     211            !                                        ! ======================= 
     212         CASE ( 1 )                                  !  ORCA_R1 configurations 
     213            !                                        ! ======================= 
     214            ii0 = 282   ;   ii1 = 282 
     215            ij0 = 200   ;   ij1 = 200 
    206216            !                                        ! ======================= 
    207217         CASE DEFAULT                                !    ORCA R05 or R025 
    … …  
    247257            ij0 = 88    ;   ij1 = 88  
    248258            !                                        ! ======================= 
     259         CASE ( 1 )                                  !  ORCA_R1 configurations 
     260            !                                        ! ======================= 
     261            ii0 = 331   ;   ii1 = 331 
     262            ij0 = 176   ;   ij1 = 176 
     263            !                                        ! ======================= 
    249264         CASE DEFAULT                                !    ORCA R05 or R025 
    250265            !                                        ! ======================= 
    … …  
    289304            ij0 = 116   ;   ij1 = 116 
    290305            !                                        ! ======================= 
     306         CASE ( 1 )                                  !  ORCA_R1 configurations 
     307            !                                        ! ======================= 
     308            ii0 = 297   ;   ii1 = 297  
     309            ij0 = 230   ;   ij1 = 230 
     310            !                                        ! ======================= 
    291311         CASE DEFAULT                                !    ORCA R05 or R025 
    292312            !                                        ! ======================= 
Note: See TracChangeset for help on using the changeset viewer.