- Timestamp:
- 2010-11-25T17:33:31+01:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/DOM/domain.F90
r2392 r2435 33 33 USE domwri ! domain: write the meshmask file 34 34 USE domvvl ! variable volume 35 #if defined key_c1d 35 USE c1d ! 1D vertical configuration 36 36 USE dyncor_c1d ! Coriolis term (c1d case) (cor_c1d routine) 37 #endif38 37 39 38 IMPLICIT NONE … … 65 64 !! - dom_stp: defined the model time step 66 65 !! - dom_wri: create the meshmask file if nmsh=1 67 !! - "key_c1d":1D configuration, move Coriolis, u and v at T-point66 !! - 1D configuration, move Coriolis, u and v at T-point 68 67 !!---------------------------------------------------------------------- 69 68 INTEGER :: jk ! dummy loop argument … … 84 83 IF( lk_vvl ) CALL dom_vvl ! Vertical variable mesh 85 84 ! 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 92 90 ! 93 91 hu(:,:) = 0.e0 ! Ocean depth at U- and V-points
Note: See TracChangeset
for help on using the changeset viewer.