Changeset 1256
- Timestamp:
- 2009-01-13T11:32:36+01:00 (15 years ago)
- Location:
- trunk/NEMO/TOP_SRC/TRP
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/TOP_SRC/TRP/trctrp.F90
r1146 r1256 13 13 !!---------------------------------------------------------------------- 14 14 USE oce_trc ! ocean dynamics and active tracers variables 15 USE trp_trc 15 USE trp_trc ! ocean passive tracers variables 16 16 USE trctrp_lec ! passive tracers transport parameters 17 USE prtctl_trc ! Print control for debbuging17 USE prtctl_trc ! Print control for debbuging 18 18 19 19 USE trcbbl ! bottom boundary layer (trc_bbl routine) … … 112 112 113 113 CALL trc_nxt( kt ) ! tracer fields at next time step 114 115 114 115 IF( ln_trcrad ) CALL trc_rad( kt ) ! Correct artificial negative concentrations 116 116 ! ! especially useful when isopycnal mixing is used 117 117 ! -
trunk/NEMO/TOP_SRC/TRP/trctrp_lec.F90
r1146 r1256 38 38 LOGICAL , PUBLIC :: ln_trcldf_hor = .FALSE. !: horizontal (geopotential) direction 39 39 LOGICAL , PUBLIC :: ln_trcldf_iso = .TRUE. !: iso-neutral direction 40 41 ! !!: ** Treatment of Negative concentrations ( nam_trcrad ) 42 LOGICAL , PUBLIC :: ln_trcrad = .TRUE. !: flag to artificially correct negative concentrations 40 43 41 44 ! !!: flag of the lateral diff. scheme used … … 96 99 & ahtrc0, ahtrb0, aeivtr0, trcrat 97 100 NAMELIST/namtopzdf/ ln_trczdf_exp, n_trczdf_exp 101 NAMELIST/namtoprad/ ln_trcrad 98 102 #if defined key_trcdmp 99 103 NAMELIST/namtopdmp/ ndmptr, ndmpftr, nmldmptr, sdmptr, bdmptr, hdmptr … … 169 173 ENDIF 170 174 175 ! 176 REWIND( numnat ) ! Read Namelist namtoprad 177 READ ( numnat, namtoprad ) 178 179 IF(lwp) THEN ! ! Control print 180 WRITE(numout,*) 181 WRITE(numout,*) ' Namelist namtoprad : treatment of negative concentrations' 182 WRITE(numout,*) ' correct artificially negative concen. or not ln_trcrad = ', ln_trcrad 183 ENDIF 184 185 171 186 # if defined key_trcdmp 172 187 ! ! passive tracres damping term
Note: See TracChangeset
for help on using the changeset viewer.