- Timestamp:
- 2013-11-04T12:51:55+01:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2013/dev_LOCEAN_2013/NEMOGCM/NEMO/OPA_SRC/TRA/traadv.F90
r3718 r4147 37 37 PUBLIC tra_adv_init ! routine called by opa module 38 38 39 ! 40 LOGICAL :: ln_traadv_cen2 = .TRUE.! 2nd order centered scheme flag41 LOGICAL :: ln_traadv_tvd = .FALSE.! TVD scheme flag42 LOGICAL :: ln_traadv_muscl = .FALSE.! MUSCL scheme flag43 LOGICAL :: ln_traadv_muscl2 = .FALSE.! MUSCL2 scheme flag44 LOGICAL :: ln_traadv_ubs = .FALSE.! UBS scheme flag45 LOGICAL :: ln_traadv_qck = .FALSE.! QUICKEST scheme flag46 LOGICAL :: ln_traadv_msc_ups = .FALSE.! use upstream scheme within muscl39 ! !!* Namelist namtra_adv * 40 LOGICAL :: ln_traadv_cen2 ! 2nd order centered scheme flag 41 LOGICAL :: ln_traadv_tvd ! TVD scheme flag 42 LOGICAL :: ln_traadv_muscl ! MUSCL scheme flag 43 LOGICAL :: ln_traadv_muscl2 ! MUSCL2 scheme flag 44 LOGICAL :: ln_traadv_ubs ! UBS scheme flag 45 LOGICAL :: ln_traadv_qck ! QUICKEST scheme flag 46 LOGICAL :: ln_traadv_msc_ups ! use upstream scheme within muscl 47 47 48 48 … … 84 84 ENDIF 85 85 ! 86 IF( nn_cla == 1 ) CALL cla_traadv( kt ) !== Cross Land Advection ==! (hor. advection)86 IF( nn_cla == 1 .AND. cp_cfg == 'orca' .AND. jp_cfg == 2 ) CALL cla_traadv( kt ) !== Cross Land Advection ==! (hor. advection) 87 87 ! 88 88 ! !== effective transport ==! … … 151 151 !!---------------------------------------------------------------------- 152 152 INTEGER :: ioptio 153 INTEGER :: ios ! Local integer output status for namelist read 153 154 !! 154 155 NAMELIST/namtra_adv/ ln_traadv_cen2 , ln_traadv_tvd, & … … 158 159 !!---------------------------------------------------------------------- 159 160 160 REWIND( numnam ) ! Read Namelist namtra_adv : tracer advection scheme 161 READ ( numnam, namtra_adv ) 161 REWIND( numnam_ref ) ! Namelist namtra_adv in reference namelist : Tracer advection scheme 162 READ ( numnam_ref, namtra_adv, IOSTAT = ios, ERR = 901) 163 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtra_adv in reference namelist', lwp ) 164 165 REWIND( numnam_cfg ) ! Namelist namtra_adv in configuration namelist : Tracer advection scheme 166 READ ( numnam_cfg, namtra_adv, IOSTAT = ios, ERR = 902 ) 167 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtra_adv in configuration namelist', lwp ) 168 WRITE ( numond, namtra_adv ) 162 169 163 170 IF(lwp) THEN ! Namelist print
Note: See TracChangeset
for help on using the changeset viewer.