Changeset 3718 for branches/2012/dev_MERGE_2012/NEMOGCM/NEMO/TOP_SRC
- Timestamp:
- 2012-11-30T16:15:07+01:00 (11 years ago)
- Location:
- branches/2012/dev_MERGE_2012/NEMOGCM/NEMO/TOP_SRC/TRP
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2012/dev_MERGE_2012/NEMOGCM/NEMO/TOP_SRC/TRP/trcadv.F90
r3680 r3718 108 108 CASE ( 1 ) ; CALL tra_adv_cen2 ( kt, nittrc000, 'TRC', zun, zvn, zwn, trb, trn, tra, jptra ) ! 2nd order centered 109 109 CASE ( 2 ) ; CALL tra_adv_tvd ( kt, nittrc000, 'TRC', r2dt, zun, zvn, zwn, trb, trn, tra, jptra ) ! TVD 110 CASE ( 3 ) ; CALL tra_adv_muscl ( kt, nittrc000, 'TRC', r2dt, zun, zvn, zwn, trb, tra, jptra ) ! MUSCL110 CASE ( 3 ) ; CALL tra_adv_muscl ( kt, nittrc000, 'TRC', r2dt, zun, zvn, zwn, trb, tra, jptra, ln_trcadv_msc_ups ) ! MUSCL 111 111 CASE ( 4 ) ; CALL tra_adv_muscl2( kt, nittrc000, 'TRC', r2dt, zun, zvn, zwn, trb, trn, tra, jptra ) ! MUSCL2 112 112 CASE ( 5 ) ; CALL tra_adv_ubs ( kt, nittrc000, 'TRC', r2dt, zun, zvn, zwn, trb, trn, tra, jptra ) ! UBS … … 120 120 WRITE(charout, FMT="('adv2')") ; CALL prt_ctl_trc_info(charout) 121 121 CALL prt_ctl_trc(tab4d=tra, mask=tmask, clinfo=ctrcnm,clinfo2='trd') 122 CALL tra_adv_muscl ( kt, nittrc000, 'TRC', r2dt, zun, zvn, zwn, trb, tra, jptra )122 CALL tra_adv_muscl ( kt, nittrc000, 'TRC', r2dt, zun, zvn, zwn, trb, tra, jptra, ln_trcadv_msc_ups ) 123 123 WRITE(charout, FMT="('adv3')") ; CALL prt_ctl_trc_info(charout) 124 124 CALL prt_ctl_trc(tab4d=tra, mask=tmask, clinfo=ctrcnm,clinfo2='trd') -
branches/2012/dev_MERGE_2012/NEMOGCM/NEMO/TOP_SRC/TRP/trcnam_trp.F90
r3680 r3718 28 28 LOGICAL , PUBLIC :: ln_trcadv_ubs = .FALSE. ! UBS scheme flag 29 29 LOGICAL , PUBLIC :: ln_trcadv_qck = .FALSE. ! QUICKEST scheme flag 30 LOGICAL , PUBLIC :: ln_trcadv_msc_ups= .FALSE. ! use upstream scheme within muscl 31 30 32 31 33 ! !!: ** lateral mixing namelist (nam_trcldf) ** … … 73 75 NAMELIST/namtrc_adv/ ln_trcadv_cen2 , ln_trcadv_tvd , & 74 76 & ln_trcadv_muscl, ln_trcadv_muscl2, & 75 & ln_trcadv_ubs , ln_trcadv_qck 77 & ln_trcadv_ubs , ln_trcadv_qck, ln_trcadv_msc_ups 76 78 77 79 NAMELIST/namtrc_ldf/ ln_trcldf_diff , ln_trcldf_lap , &
Note: See TracChangeset
for help on using the changeset viewer.