Changeset 13734
- Timestamp:
- 2020-11-06T12:08:40+01:00 (3 years ago)
- Location:
- NEMO/branches/2020/dev_r13327_KERNEL-06_2_techene_e3/src
- Files:
-
- 8 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r13327_KERNEL-06_2_techene_e3/src/OCE/DIA/diawri.F90
r13605 r13734 1036 1036 !! 1037 1037 INTEGER :: inum, jk 1038 REAL(wp), DIMENSION(jpi,jpj,jpk) :: ze3t, zgdept ! 3D workspace !!st patch to usesubstitution1038 REAL(wp), DIMENSION(jpi,jpj,jpk) :: ze3t, zgdept ! 3D workspace for qco substitution 1039 1039 !!---------------------------------------------------------------------- 1040 1040 ! -
NEMO/branches/2020/dev_r13327_KERNEL-06_2_techene_e3/src/OCE/DOM/domqco.F90
r13732 r13734 88 88 ! 89 89 CALL qco_ctl ! choose vertical coordinate (z_star, z_tilde or layer) 90 ! ! CAUTION COM A METTRE !!!91 !!st CALL qco_rst_read2( nit000, Kbb, Kmm ) ! Read or initialize ssh_(Kbb/Kmm) and r392 !!st CAUTION if read2 removed change restart.F90 !93 90 ! 94 91 CALL qco_rst_read( nit000, Kbb, Kmm ) ! Read or initialize ssh_(Kbb/Kmm) -
NEMO/branches/2020/dev_r13327_KERNEL-06_2_techene_e3/src/OCE/DOM/istate.F90
r13607 r13734 63 63 ! 64 64 INTEGER :: ji, jj, jk ! dummy loop indices 65 REAL(wp), DIMENSION(jpi,jpj,jpk) :: zgdept ! 3D table !!st patch to use gdept subtitute65 REAL(wp), DIMENSION(jpi,jpj,jpk) :: zgdept ! 3D table for qco substitute 66 66 !!gm see comment further down 67 67 REAL(wp), ALLOCATABLE, DIMENSION(:,:,:,:) :: zuvd ! U & V data workspace -
NEMO/branches/2020/dev_r13327_KERNEL-06_2_techene_e3/src/OCE/DYN/dynvor.F90
r13696 r13734 934 934 ! 935 935 END SELECT 936 !!st ADD !! pense a recalculer le hf_0937 936 #if defined key_qco 938 937 SELECT CASE( nvor_scheme ) ! qco case: pre-computed a specific e3f_0 for some vorticity schemes … … 970 969 ! 971 970 #endif 972 !!st END973 971 IF(lwp) THEN ! Print the choice 974 972 WRITE(numout,*) -
NEMO/branches/2020/dev_r13327_KERNEL-06_2_techene_e3/src/OCE/ISF/isfcpl.F90
r13732 r13734 142 142 !!---------------------------------------------------------------------- 143 143 INTEGER :: jk ! loop index 144 REAL(wp), DIMENSION(jpi,jpj,jpk) :: ze3t, ze3u, ze3v, zgdepw ! e3t , e3u, e3v !!st patch to usesubstitution144 REAL(wp), DIMENSION(jpi,jpj,jpk) :: ze3t, ze3u, ze3v, zgdepw ! for qco substitution 145 145 !!---------------------------------------------------------------------- 146 146 ! -
NEMO/branches/2020/dev_r13327_KERNEL-06_2_techene_e3/src/OCE/ISF/isfdynatf.F90
r13237 r13734 15 15 USE phycst , ONLY: r1_rho0 ! physical constant 16 16 USE dom_oce ! time and space domain 17 USE oce, ONLY : ssh ! sea-surface height !!st needed forsubstitution17 USE oce, ONLY : ssh ! sea-surface height for qco substitution 18 18 19 19 USE in_out_manager -
NEMO/branches/2020/dev_r13327_KERNEL-06_2_techene_e3/src/OFF/nemogcm.F90
r13608 r13734 65 65 USE lbcnfd , ONLY : isendto, nsndto ! Setup of north fold exchanges 66 66 #if defined key_qco 67 USE stp MLF, ONLY : Nbb, Nnn, Naa, Nrhs ! time level indices67 USE stpmlf , ONLY : Nbb, Nnn, Naa, Nrhs ! time level indices 68 68 #else 69 69 USE step , ONLY : Nbb, Nnn, Naa, Nrhs ! time level indices -
NEMO/branches/2020/dev_r13327_KERNEL-06_2_techene_e3/src/TOP/PISCES/SED/oce_sed.F90
r13237 r13734 13 13 USE dom_oce , ONLY : glamt => glamt !: longitude of t-point (degre) 14 14 USE dom_oce , ONLY : gphit => gphit !: latitude of t-point (degre) 15 !!st15 16 16 #if ! defined key_qco 17 17 USE dom_oce , ONLY : e3t => e3t !: latitude of t-point (degre)
Note: See TracChangeset
for help on using the changeset viewer.