Changeset 4595
- Timestamp:
- 2014-03-26T11:50:35+01:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2012/dev_v3_4_STABLE_2012/NEMOGCM/NEMO/OPATAM_SRC/TRA/traadv_tam.F90
r3611 r4595 102 102 zwntl(:,:,jpk) = 0._wp ! no transport trough the bottom 103 103 ! 104 IF(lwp) WRITE(numout,*) ' tra_adv_tam: 2nd order scheme is forced in TAM' 105 nadv = 1 ! force tra_adv_cen2 for tangent 104 IF ( kt == nit000 ) THEN 105 IF(lwp) WRITE(numout,*) ' tra_adv_tam: 2nd order scheme is forced in TAM' 106 nadv = 1 ! force tra_adv_cen2 for tangent 107 END IF 106 108 107 109 SELECT CASE ( nadv ) ! compute advection trend and add it to general trend … … 155 157 zwn(:,:,jpk) = 0._wp ! no transport trough the bottom 156 158 ! 157 IF(lwp) WRITE(numout,*) ' tra_adv_tam: 2nd order scheme is forced in TAM' 158 nadv = 1 ! force tra_adv_cen2 for adjoint 159 IF ( kt == nitend ) THEN 160 IF(lwp) WRITE(numout,*) ' tra_adv_tam: 2nd order scheme is forced in TAM' 161 nadv = 1 ! force tra_adv_cen2 for adjoint 162 END IF 159 163 ! 160 164 SELECT CASE ( nadv ) ! compute advection trend and add it to general trend
Note: See TracChangeset
for help on using the changeset viewer.