Changeset 14644 for NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/src/TOP/TRP/trcsbc.F90
- Timestamp:
- 2021-03-26T15:33:49+01:00 (3 years ago)
- Location:
- NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final
- Property svn:externals
-
old new 9 9 10 10 # SETTE 11 ^/utils/CI/sette _wave@13990sette11 ^/utils/CI/sette@14244 sette
-
- Property svn:externals
-
NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/src/TOP/TRP/trcsbc.F90
r14219 r14644 123 123 ! 124 124 DO jn = 1, jptra 125 DO_2D( 0, 1, 0, 0)125 DO_2D( 0, 0, 0, 1 ) 126 126 sbc_trc(ji,jj,jn) = zsfx(ji,jj) * r1_rho0 * ptr(ji,jj,1,jn,Kmm) 127 127 END_2D … … 131 131 ! 132 132 DO jn = 1, jptra 133 DO_2D( 0, 1, 0, 0)133 DO_2D( 0, 0, 0, 1 ) 134 134 sbc_trc(ji,jj,jn) = ( zsfx(ji,jj) + fmmflx(ji,jj) ) * r1_rho0 * ptr(ji,jj,1,jn,Kmm) 135 135 END_2D … … 139 139 ! 140 140 DO jn = 1, jptra 141 DO_2D( 0, 1, 0, 0)141 DO_2D( 0, 0, 0, 1 ) 142 142 zse3t = 1. / e3t(ji,jj,1,Kmm) 143 143 ! tracer flux at the ice/ocean interface (tracer/m2/s) … … 163 163 IF( l_trdtrc ) ztrtrd(:,:,:) = ptr(:,:,:,jn,Krhs) ! save trends 164 164 ! 165 DO_2D( 0, 1, 0, 0)165 DO_2D( 0, 0, 0, 1 ) 166 166 zse3t = zfact / e3t(ji,jj,1,Kmm) 167 167 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.