Changeset 6041 for branches/2015/dev_r5776_UKMO2_OBS_efficiency_improvs/NEMOGCM/NEMO/OPA_SRC/DYN/dynadv.F90
- Timestamp:
- 2015-12-14T10:06:06+01:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2015/dev_r5776_UKMO2_OBS_efficiency_improvs/NEMOGCM/NEMO/OPA_SRC/DYN/dynadv.F90
r5322 r6041 76 76 CASE ( 3 ) 77 77 CALL dyn_adv_ubs ( kt ) ! 3rd order UBS scheme 78 !79 CASE (-1 ) ! esopa: test all possibility with control print80 CALL dyn_keg ( kt, nn_dynkeg )81 CALL dyn_zad ( kt )82 CALL dyn_adv_cen2( kt )83 CALL dyn_adv_ubs ( kt )84 78 END SELECT 85 79 ! … … 126 120 IF( ln_dynadv_cen2 ) ioptio = ioptio + 1 127 121 IF( ln_dynadv_ubs ) ioptio = ioptio + 1 128 IF( lk_esopa ) ioptio = 1129 122 130 123 IF( ioptio /= 1 ) CALL ctl_stop( 'Choose ONE advection scheme in namelist namdyn_adv' ) … … 139 132 IF( ln_dynadv_cen2 ) nadv = 2 140 133 IF( ln_dynadv_ubs ) nadv = 3 141 IF( lk_esopa ) nadv = -1142 134 143 135 IF(lwp) THEN ! Print the choice … … 151 143 IF( nadv == 2 ) WRITE(numout,*) ' flux form : 2nd order scheme is used' 152 144 IF( nadv == 3 ) WRITE(numout,*) ' flux form : UBS scheme is used' 153 IF( nadv == -1 ) WRITE(numout,*) ' esopa test: use all advection formulation'154 145 ENDIF 155 146 !
Note: See TracChangeset
for help on using the changeset viewer.