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 2435 for branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/DOM/domain.F90 – NEMO

Ignore:
Timestamp:
2010-11-25T17:33:31+01:00 (13 years ago)
Author:
cetlod
Message:

Improve the 1D vertical configuration in v3.3beta

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/DOM/domain.F90

    r2392 r2435  
    3333   USE domwri          ! domain: write the meshmask file 
    3434   USE domvvl          ! variable volume 
    35 #if defined key_c1d 
     35   USE c1d             ! 1D vertical configuration 
    3636   USE dyncor_c1d      ! Coriolis term (c1d case)         (cor_c1d routine) 
    37 #endif 
    3837 
    3938   IMPLICIT NONE 
     
    6564      !!              - dom_stp: defined the model time step 
    6665      !!              - dom_wri: create the meshmask file if nmsh=1 
    67       !!              - "key_c1d": 1D configuration, move Coriolis, u and v at T-point 
     66      !!              - 1D configuration, move Coriolis, u and v at T-point 
    6867      !!---------------------------------------------------------------------- 
    6968      INTEGER ::   jk                ! dummy loop argument 
     
    8483      IF( lk_vvl         )   CALL dom_vvl      ! Vertical variable mesh 
    8584      ! 
    86 #if defined key_c1d 
    87       !                                        ! 1D configuration ("key_c1d") 
    88       CALL cor_c1d                                 ! Coriolis set at T-point 
    89       umask(:,:,:) = tmask(:,:,:)                  ! U, V moved at T-point 
    90       vmask(:,:,:) = tmask(:,:,:) 
    91 #endif 
     85      IF( lk_c1d ) THEN                        ! 1D configuration  
     86         CALL cor_c1d                          ! Coriolis set at T-point 
     87         umask(:,:,:) = tmask(:,:,:)           ! U, V moved at T-point 
     88         vmask(:,:,:) = tmask(:,:,:) 
     89      END IF 
    9290      ! 
    9391      hu(:,:) = 0.e0                           ! Ocean depth at U- and V-points 
Note: See TracChangeset for help on using the changeset viewer.