Changeset 14058 for NEMO/branches/2020/dev_r13723_KERNEL-01_Amy_Mike_newHPGschemes/src/OFF/nemogcm.F90
- Timestamp:
- 2020-12-03T16:53:41+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r13723_KERNEL-01_Amy_Mike_newHPGschemes/src/OFF/nemogcm.F90
r14046 r14058 64 64 USE lib_fortran ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined) 65 65 USE lbcnfd , ONLY : isendto, nsndto ! Setup of north fold exchanges 66 USE step, ONLY : Nbb, Nnn, Naa, Nrhs ! time level indices 66 #if defined key_qco 67 USE stpmlf , ONLY : Nbb, Nnn, Naa, Nrhs ! time level indices 68 #else 69 USE step , ONLY : Nbb, Nnn, Naa, Nrhs ! time level indices 70 #endif 67 71 USE halo_mng 68 72 … … 143 147 CALL dta_dyn_atf( istp, Nbb, Nnn, Naa ) ! time filter of sea surface height and vertical scale factors 144 148 # if defined key_qco 145 CALL dom_qco_r3c( ssh(:,:, Kmm), r3t_f, r3u_f, r3v_f )149 CALL dom_qco_r3c( ssh(:,:,Nnn), r3t_f, r3u_f, r3v_f ) 146 150 # endif 147 151 ENDIF 148 152 CALL trc_stp ( istp, Nbb, Nnn, Nrhs, Naa ) ! time-stepping 149 153 # if defined key_qco 150 !r3t(:,:, Kmm) = r3t_f(:,:) ! update ssh to h0 ratio151 !r3u(:,:, Kmm) = r3u_f(:,:)152 !r3v(:,:, Kmm) = r3v_f(:,:)154 !r3t(:,:,Nnn) = r3t_f(:,:) ! update ssh to h0 ratio 155 !r3u(:,:,Nnn) = r3u_f(:,:) 156 !r3v(:,:,Nnn) = r3v_f(:,:) 153 157 # endif 154 158 #endif … … 160 164 ! 161 165 #if ! defined key_qco 162 # if ! defined key_sed_off166 # if ! defined key_sed_off 163 167 IF( .NOT.ln_linssh ) CALL dta_dyn_sf_interp( istp, Nnn ) ! calculate now grid parameters 164 # endif168 # endif 165 169 #endif 166 170 CALL stp_ctl ( istp ) ! Time loop: control and print
Note: See TracChangeset
for help on using the changeset viewer.