Changeset 14789 for NEMO/branches/2021/dev_r13747_HPC-11_mcastril_HPDAonline_DiagGPU/src/TOP/TRP/trcsbc.F90
- Timestamp:
- 2021-05-05T13:18:04+02:00 (3 years ago)
- Location:
- NEMO/branches/2021/dev_r13747_HPC-11_mcastril_HPDAonline_DiagGPU
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2021/dev_r13747_HPC-11_mcastril_HPDAonline_DiagGPU
- Property svn:externals
-
old new 3 3 ^/utils/build/mk@HEAD mk 4 4 ^/utils/tools@HEAD tools 5 ^/vendors/AGRIF/dev _r12970_AGRIF_CMEMSext/AGRIF5 ^/vendors/AGRIF/dev@HEAD ext/AGRIF 6 6 ^/vendors/FCM@HEAD ext/FCM 7 7 ^/vendors/IOIPSL@HEAD ext/IOIPSL 8 ^/vendors/PPR@HEAD ext/PPR 8 9 9 10 # SETTE 10 ^/utils/CI/sette@1 3559sette11 ^/utils/CI/sette@14244 sette
-
- Property svn:externals
-
NEMO/branches/2021/dev_r13747_HPC-11_mcastril_HPDAonline_DiagGPU/src/TOP/TRP/trcsbc.F90
r13295 r14789 16 16 !! trc_sbc : update the tracer trend at ocean surface 17 17 !!---------------------------------------------------------------------- 18 USE par_trc ! need jptra, number of passive tracers 18 19 USE oce_trc ! ocean dynamics and active tracers variables 19 20 USE trc ! ocean passive tracers variables … … 121 122 ! 122 123 DO jn = 1, jptra 123 DO_2D( 0, 1, 0, 0)124 DO_2D( 0, 0, 0, 1 ) 124 125 sbc_trc(ji,jj,jn) = zsfx(ji,jj) * r1_rho0 * ptr(ji,jj,1,jn,Kmm) 125 126 END_2D … … 129 130 ! 130 131 DO jn = 1, jptra 131 DO_2D( 0, 1, 0, 0)132 DO_2D( 0, 0, 0, 1 ) 132 133 sbc_trc(ji,jj,jn) = ( zsfx(ji,jj) + fmmflx(ji,jj) ) * r1_rho0 * ptr(ji,jj,1,jn,Kmm) 133 134 END_2D … … 137 138 ! 138 139 DO jn = 1, jptra 139 DO_2D( 0, 1, 0, 0)140 DO_2D( 0, 0, 0, 1 ) 140 141 zse3t = 1. / e3t(ji,jj,1,Kmm) 141 142 ! tracer flux at the ice/ocean interface (tracer/m2/s) … … 161 162 IF( l_trdtrc ) ztrtrd(:,:,:) = ptr(:,:,:,jn,Krhs) ! save trends 162 163 ! 163 DO_2D( 0, 1, 0, 0)164 DO_2D( 0, 0, 0, 1 ) 164 165 zse3t = zfact / e3t(ji,jj,1,Kmm) 165 166 ptr(ji,jj,1,jn,Krhs) = ptr(ji,jj,1,jn,Krhs) + ( sbc_trc_b(ji,jj,jn) + sbc_trc(ji,jj,jn) ) * zse3t
Note: See TracChangeset
for help on using the changeset viewer.