Changeset 9526 for branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/TRA
- Timestamp:
- 2018-04-30T12:22:35+02:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/TRA/traadv.F90
r9190 r9526 46 46 47 47 ! !!* Namelist namtra_adv * 48 LOGICAL :: ln_traadv_ NONE! no advection on T and S48 LOGICAL :: ln_traadv_OFF ! no advection on T and S 49 49 LOGICAL :: ln_traadv_cen ! centered scheme flag 50 50 INTEGER :: nn_cen_h, nn_cen_v ! =2/4 : horizontal and vertical choices of the order of CEN scheme … … 185 185 INTEGER :: ioptio, ios ! Local integers 186 186 ! 187 NAMELIST/namtra_adv/ ln_traadv_ NONE,& ! No advection187 NAMELIST/namtra_adv/ ln_traadv_OFF, & ! No advection 188 188 & ln_traadv_cen , nn_cen_h, nn_cen_v, & ! CEN 189 189 & ln_traadv_fct , nn_fct_h, nn_fct_v, & ! FCT … … 208 208 WRITE(numout,*) '~~~~~~~~~~~~' 209 209 WRITE(numout,*) ' Namelist namtra_adv : chose a advection scheme for tracers' 210 WRITE(numout,*) ' No advection on T & S ln_traadv_ NONE= ', ln_traadv_NONE210 WRITE(numout,*) ' No advection on T & S ln_traadv_OFF = ', ln_traadv_OFF 211 211 WRITE(numout,*) ' centered scheme ln_traadv_cen = ', ln_traadv_cen 212 212 WRITE(numout,*) ' horizontal 2nd/4th order nn_cen_h = ', nn_fct_h … … 224 224 ! !== Parameter control & set nadv ==! 225 225 ioptio = 0 226 IF( ln_traadv_ NONE) THEN ; ioptio = ioptio + 1 ; nadv = np_NO_adv ; ENDIF227 IF( ln_traadv_cen 228 IF( ln_traadv_fct 229 IF( ln_traadv_mus 230 IF( ln_traadv_ubs 231 IF( ln_traadv_qck 226 IF( ln_traadv_OFF ) THEN ; ioptio = ioptio + 1 ; nadv = np_NO_adv ; ENDIF 227 IF( ln_traadv_cen ) THEN ; ioptio = ioptio + 1 ; nadv = np_CEN ; ENDIF 228 IF( ln_traadv_fct ) THEN ; ioptio = ioptio + 1 ; nadv = np_FCT ; ENDIF 229 IF( ln_traadv_mus ) THEN ; ioptio = ioptio + 1 ; nadv = np_MUS ; ENDIF 230 IF( ln_traadv_ubs ) THEN ; ioptio = ioptio + 1 ; nadv = np_UBS ; ENDIF 231 IF( ln_traadv_qck ) THEN ; ioptio = ioptio + 1 ; nadv = np_QCK ; ENDIF 232 232 ! 233 233 IF( ioptio /= 1 ) CALL ctl_stop( 'tra_adv_init: Choose ONE advection option in namelist namtra_adv' )
Note: See TracChangeset
for help on using the changeset viewer.