Changeset 12353 for NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/TRA
- Timestamp:
- 2020-01-29T17:15:37+01:00 (4 years ago)
- Location:
- NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/TRA
- Files:
-
- 21 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/TRA/eosbn2.F90
r12340 r12353 179 179 180 180 !! * Substitutions 181 # include "vectopt_loop_substitute.h90"182 181 # include "do_loop_substitute.h90" 183 182 !!---------------------------------------------------------------------- -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/TRA/traadv.F90
r12236 r12353 66 66 INTEGER, PARAMETER :: np_QCK = 5 ! QUICK scheme 67 67 68 !! * Substitutions69 # include "vectopt_loop_substitute.h90"70 68 !!---------------------------------------------------------------------- 71 69 !! NEMO/OCE 4.0 , NEMO Consortium (2018) -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/TRA/traadv_cen.F90
r12340 r12353 36 36 37 37 !! * Substitutions 38 # include "vectopt_loop_substitute.h90"39 38 # include "do_loop_substitute.h90" 40 39 !!---------------------------------------------------------------------- -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/TRA/traadv_fct.F90
r12340 r12353 45 45 46 46 !! * Substitutions 47 # include "vectopt_loop_substitute.h90"48 47 # include "do_loop_substitute.h90" 49 48 !!---------------------------------------------------------------------- -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/TRA/traadv_mus.F90
r12340 r12353 46 46 47 47 !! * Substitutions 48 # include "vectopt_loop_substitute.h90"49 48 # include "do_loop_substitute.h90" 50 49 !!---------------------------------------------------------------------- -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/TRA/traadv_qck.F90
r12340 r12353 40 40 41 41 !! * Substitutions 42 # include "vectopt_loop_substitute.h90"43 42 # include "do_loop_substitute.h90" 44 43 !!---------------------------------------------------------------------- -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/TRA/traadv_ubs.F90
r12340 r12353 38 38 39 39 !! * Substitutions 40 # include "vectopt_loop_substitute.h90"41 40 # include "do_loop_substitute.h90" 42 41 !!---------------------------------------------------------------------- -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/TRA/traatf.F90
r12340 r12353 57 57 58 58 !! * Substitutions 59 # include "vectopt_loop_substitute.h90"60 59 # include "do_loop_substitute.h90" 61 60 !!---------------------------------------------------------------------- -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/TRA/trabbl.F90
r12340 r12353 67 67 68 68 !! * Substitutions 69 # include "vectopt_loop_substitute.h90"70 69 # include "do_loop_substitute.h90" 71 70 !!---------------------------------------------------------------------- -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/TRA/tradmp.F90
r12340 r12353 52 52 53 53 !! * Substitutions 54 # include "vectopt_loop_substitute.h90"55 54 # include "do_loop_substitute.h90" 56 55 !!---------------------------------------------------------------------- -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/TRA/traisf.F90
r12340 r12353 22 22 23 23 !! * Substitutions 24 # include "vectopt_loop_substitute.h90"25 24 # include "do_loop_substitute.h90" 26 25 !!---------------------------------------------------------------------- -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/TRA/traldf.F90
r12236 r12353 38 38 PUBLIC tra_ldf_init ! called by nemogcm.F90 39 39 40 !! * Substitutions41 # include "vectopt_loop_substitute.h90"42 40 !!---------------------------------------------------------------------- 43 41 !! NEMO/OCE 4.0 , NEMO Consortium (2018) -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/TRA/traldf_iso.F90
r12340 r12353 40 40 41 41 !! * Substitutions 42 # include "vectopt_loop_substitute.h90"43 42 # include "do_loop_substitute.h90" 44 43 !!---------------------------------------------------------------------- … … 262 261 !! III - vertical trend (full) 263 262 !!---------------------------------------------------------------------- 264 !265 ztfw(fs_2:1,:,:) = 0._wp ; ztfw(jpi:fs_jpim1,:,:) = 0._wp ! avoid to potentially manipulate NaN values266 263 ! 267 264 ! Vertical fluxes -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/TRA/traldf_lap_blp.F90
r12340 r12353 37 37 38 38 !! * Substitutions 39 # include "vectopt_loop_substitute.h90"40 39 # include "do_loop_substitute.h90" 41 40 !!---------------------------------------------------------------------- -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/TRA/traldf_triad.F90
r12340 r12353 40 40 41 41 !! * Substitutions 42 # include "vectopt_loop_substitute.h90"43 42 # include "do_loop_substitute.h90" 44 43 !!---------------------------------------------------------------------- -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/TRA/tramle.F90
r12340 r12353 48 48 49 49 !! * Substitutions 50 # include "vectopt_loop_substitute.h90"51 50 # include "do_loop_substitute.h90" 52 51 !!---------------------------------------------------------------------- -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/TRA/tranpc.F90
r12340 r12353 34 34 35 35 !! * Substitutions 36 # include "vectopt_loop_substitute.h90"37 36 # include "do_loop_substitute.h90" 38 37 !!---------------------------------------------------------------------- -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/TRA/traqsr.F90
r12340 r12353 67 67 68 68 !! * Substitutions 69 # include "vectopt_loop_substitute.h90"70 69 # include "do_loop_substitute.h90" 71 70 !!---------------------------------------------------------------------- … … 170 169 DO jk = 1, nksr + 1 171 170 DO jj = 2, jpjm1 ! Separation in R-G-B depending of the surface Chl 172 DO ji = fs_2, fs_jpim1171 DO ji = 2, jpim1 173 172 zchl = MIN( 10. , MAX( 0.03, sf_chl(1)%fnow(ji,jj,1) ) ) 174 173 zCtot = 40.6 * zchl**0.459 -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/TRA/trasbc.F90
r12340 r12353 42 42 43 43 !! * Substitutions 44 # include "vectopt_loop_substitute.h90"45 44 # include "do_loop_substitute.h90" 46 45 !!---------------------------------------------------------------------- -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/TRA/trazdf.F90
r12340 r12353 36 36 37 37 !! * Substitutions 38 # include "vectopt_loop_substitute.h90"39 38 # include "do_loop_substitute.h90" 40 39 !!---------------------------------------------------------------------- -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/TRA/zpshde.F90
r12340 r12353 31 31 32 32 !! * Substitutions 33 # include "vectopt_loop_substitute.h90"34 33 # include "do_loop_substitute.h90" 35 34 !!----------------------------------------------------------------------
Note: See TracChangeset
for help on using the changeset viewer.