Ignore:
Timestamp:
2010-11-13T14:08:12+01:00 (10 years ago)
Author:
gm
Message:

v3.3beta: C1D - bug correction to compile with key_c1d

File:
1 edited

Legend:

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

    r2364 r2382  
    1111   !!   NEMO     1.0  !  2002-08  (G. Madec)  F90: Free form and module 
    1212   !!            2.0  !  2005-11  (V. Garnier) Surface pressure gradient organization 
     13   !!            3.3  !  2010-11  (G. Madec)  initialisation in C1D configuration 
    1314   !!---------------------------------------------------------------------- 
    1415    
     
    1819   !!   dom_ctl        : control print for the ocean domain 
    1920   !!---------------------------------------------------------------------- 
    20    USE oce             !  
    21    USE dom_oce         ! ocean space and time domain 
     21   USE oce             ! ocean variables 
     22   USE dom_oce         ! domain: ocean 
    2223   USE sbc_oce         ! surface boundary condition: ocean 
    2324   USE phycst          ! physical constants 
     
    3233   USE domwri          ! domain: write the meshmask file 
    3334   USE domvvl          ! variable volume 
     35#if defined key_c1d 
     36   USE dyncor_c1d      ! Coriolis term (c1d case)         (cor_c1d routine) 
     37#endif 
    3438 
    3539   IMPLICIT NONE 
     
    4347   !! NEMO/OPA 3.3 , NEMO Consortium (2010) 
    4448   !! $Id$ 
    45    !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 
     49   !! Software governed by the CeCILL licence        (NEMOGCM/NEMO_CeCILL.txt) 
    4650   !!------------------------------------------------------------------------- 
    47  
    4851CONTAINS 
    4952 
     
    6265      !!              - dom_stp: defined the model time step 
    6366      !!              - dom_wri: create the meshmask file if nmsh=1 
     67      !!              - "key_c1d": 1D configuration, move Coriolis, u and v at T-point 
    6468      !!---------------------------------------------------------------------- 
    6569      INTEGER ::   jk                ! dummy loop argument 
     
    7983                             CALL dom_msk      ! Masks 
    8084      IF( lk_vvl         )   CALL dom_vvl      ! Vertical variable mesh 
     85      ! 
     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 
    8192      ! 
    8293      hu(:,:) = 0.e0                           ! Ocean depth at U- and V-points 
     
    188199#endif 
    189200 
    190       REWIND( numnam )             ! Namelist namdom : space & time domain (bathymetry, mesh, timestep) 
     201      REWIND( numnam )              ! Namelist namdom : space & time domain (bathymetry, mesh, timestep) 
    191202      READ  ( numnam, namdom ) 
    192203 
     
    224235      nclosea   = nn_closea 
    225236 
    226       REWIND( numnam )             ! Namelist cross land advection 
     237      REWIND( numnam )              ! Namelist cross land advection 
    227238      READ  ( numnam, namcla ) 
    228239      IF(lwp) THEN 
     
    238249 
    239250#if defined key_netcdf4 
    240  
    241       REWIND( numnam )              ! Namelist namnc4 : netcdf4 chunking parameters 
     251      !                             ! NetCDF 4 case   ("key_netcdf4" defined) 
     252      REWIND( numnam )                    ! Namelist namnc4 : netcdf4 chunking parameters 
    242253      READ  ( numnam, namnc4 ) 
    243       IF(lwp) THEN 
     254      IF(lwp) THEN                        ! control print 
    244255         WRITE(numout,*) 
    245256         WRITE(numout,*) '   Namelist namnc4 - Netcdf4 chunking parameters' 
     
    256267      snc4set%nk   = nn_nchunks_k 
    257268      snc4set%luse = ln_nc4zip 
    258  
    259269#else 
    260  
    261       snc4set%luse = .FALSE. 
    262   
    263 #endif 
     270      snc4set%luse = .FALSE.        ! No NetCDF 4 case 
     271#endif 
     272      ! 
    264273   END SUBROUTINE dom_nam 
    265274 
Note: See TracChangeset for help on using the changeset viewer.