Changeset 15648
- Timestamp:
- 2022-01-17T12:35:51+01:00 (3 years ago)
- Location:
- NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src
- Files:
-
- 35 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/ICE/icectl.F90
r14644 r15648 706 706 CALL prt_ctl_info(' - Cell values : ') 707 707 CALL prt_ctl_info(' ~~~~~~~~~~~~~ ') 708 CALL prt_ctl(tab2d_1=CAST WP(e1e2t) , clinfo1=' cell area :')708 CALL prt_ctl(tab2d_1=CASTDP(e1e2t) , clinfo1=' cell area :') 709 709 CALL prt_ctl(tab2d_1=at_i , clinfo1=' at_i :') 710 710 CALL prt_ctl(tab2d_1=ato_i , clinfo1=' ato_i :') -
NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/ICE/icerst.F90
r14644 r15648 330 330 ! 331 331 IF(lwp) WRITE(numout,*) ' SAS: default initialisation of ss[st]_m arrays used in ice_istate' 332 IF( l_useCT ) THEN ; sst_m(:,:) = eos_pt_from_ct( CAST WP(ts(:,:,1,jp_tem, Kmm)), CASTWP(ts(:,:,1,jp_sal, Kmm)) )332 IF( l_useCT ) THEN ; sst_m(:,:) = eos_pt_from_ct( CASTDP(ts(:,:,1,jp_tem, Kmm)), CASTDP(ts(:,:,1,jp_sal, Kmm)) ) 333 333 ELSE ; sst_m(:,:) = ts(:,:,1,jp_tem, Kmm) 334 334 ENDIF -
NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/ICE/icestp.F90
r14986 r15648 213 213 ! --- Ocean time step --- ! 214 214 !-------------------------! 215 CALL ice_update_tau( kt, CAST WP(uu(:,:,1,Kbb)), CASTWP(vv(:,:,1,Kbb)) ) ! -- update surface ocean stresses215 CALL ice_update_tau( kt, CASTDP(uu(:,:,1,Kbb)), CASTDP(vv(:,:,1,Kbb)) ) ! -- update surface ocean stresses 216 216 !!gm remark, the ocean-ice stress is not saved in ice diag call above ..... find a solution!!! 217 217 ! -
NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/TOP/PISCES/P2Z/p2zbio.F90
r14644 r15648 369 369 WRITE(charout, FMT="('bio')") 370 370 CALL prt_ctl_info( charout, cdcomp = 'top' ) 371 CALL prt_ctl(tab4d_1=CAST WP(tr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm)371 CALL prt_ctl(tab4d_1=CASTDP(tr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm) 372 372 ENDIF 373 373 ! -
NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/TOP/PISCES/P2Z/p2zexp.F90
r14219 r15648 142 142 WRITE(charout, FMT="('exp')") 143 143 CALL prt_ctl_info( charout, cdcomp = 'top' ) 144 CALL prt_ctl(tab4d_1=CAST WP(tr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm)144 CALL prt_ctl(tab4d_1=CASTDP(tr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm) 145 145 ENDIF 146 146 ! -
NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/TOP/PISCES/P2Z/p2zopt.F90
r14219 r15648 127 127 WRITE(charout, FMT="('opt')") 128 128 CALL prt_ctl_info( charout, cdcomp = 'top' ) 129 CALL prt_ctl( tab4d_1=CAST WP(tr(:,:,:,:,Kmm)), mask1=tmask, clinfo=ctrcnm )129 CALL prt_ctl( tab4d_1=CASTDP(tr(:,:,:,:,Kmm)), mask1=tmask, clinfo=ctrcnm ) 130 130 ENDIF 131 131 ! -
NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/TOP/PISCES/P2Z/p2zsed.F90
r14219 r15648 111 111 WRITE(charout, FMT="('sed')") 112 112 CALL prt_ctl_info( charout, cdcomp = 'top' ) 113 CALL prt_ctl(tab4d_1=CAST WP(tr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm)113 CALL prt_ctl(tab4d_1=CASTDP(tr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm) 114 114 ENDIF 115 115 ! -
NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/TOP/PISCES/P4Z/p4zagg.F90
r14219 r15648 172 172 WRITE(charout, FMT="('agg')") 173 173 CALL prt_ctl_info( charout, cdcomp = 'top' ) 174 CALL prt_ctl(tab4d_1=CAST WP(tr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm)174 CALL prt_ctl(tab4d_1=CASTDP(tr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm) 175 175 ENDIF 176 176 ! -
NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/TOP/PISCES/P4Z/p4zbio.F90
r14219 r15648 110 110 WRITE(charout, FMT="('bio ')") 111 111 CALL prt_ctl_info( charout, cdcomp = 'top' ) 112 CALL prt_ctl(tab4d_1=CAST WP(tr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm)112 CALL prt_ctl(tab4d_1=CASTDP(tr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm) 113 113 ENDIF 114 114 ! -
NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/TOP/PISCES/P4Z/p4zfechem.F90
r14219 r15648 220 220 WRITE(charout, FMT="('fechem')") 221 221 CALL prt_ctl_info( charout, cdcomp = 'top' ) 222 CALL prt_ctl(tab4d_1=CAST WP(tr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm)222 CALL prt_ctl(tab4d_1=CASTDP(tr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm) 223 223 ENDIF 224 224 ! -
NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/TOP/PISCES/P4Z/p4zflx.F90
r14219 r15648 180 180 WRITE(charout, FMT="('flx ')") 181 181 CALL prt_ctl_info( charout, cdcomp = 'top' ) 182 CALL prt_ctl(tab4d_1=CAST WP(tr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm)182 CALL prt_ctl(tab4d_1=CASTDP(tr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm) 183 183 ENDIF 184 184 -
NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/TOP/PISCES/P4Z/p4zligand.F90
r14219 r15648 91 91 WRITE(charout, FMT="('ligand1')") 92 92 CALL prt_ctl_info( charout, cdcomp = 'top' ) 93 CALL prt_ctl(tab4d_1=CAST WP(tr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm)93 CALL prt_ctl(tab4d_1=CASTDP(tr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm) 94 94 ENDIF 95 95 ! -
NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/TOP/PISCES/P4Z/p4zlys.F90
r14219 r15648 132 132 WRITE(charout, FMT="('lys ')") 133 133 CALL prt_ctl_info( charout, cdcomp = 'top' ) 134 CALL prt_ctl(tab4d_1=CAST WP(tr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm)134 CALL prt_ctl(tab4d_1=CASTDP(tr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm) 135 135 ENDIF 136 136 ! -
NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/TOP/PISCES/P4Z/p4zmeso.F90
r14219 r15648 248 248 WRITE(charout, FMT="('meso')") 249 249 CALL prt_ctl_info( charout, cdcomp = 'top' ) 250 CALL prt_ctl(tab4d_1=CAST WP(tr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm)250 CALL prt_ctl(tab4d_1=CASTDP(tr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm) 251 251 ENDIF 252 252 ! -
NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/TOP/PISCES/P4Z/p4zmicro.F90
r14219 r15648 204 204 WRITE(charout, FMT="('micro')") 205 205 CALL prt_ctl_info( charout, cdcomp = 'top' ) 206 CALL prt_ctl(tab4d_1=CAST WP(tr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm)206 CALL prt_ctl(tab4d_1=CASTDP(tr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm) 207 207 ENDIF 208 208 ! -
NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/TOP/PISCES/P4Z/p4zmort.F90
r14219 r15648 122 122 WRITE(charout, FMT="('nano')") 123 123 CALL prt_ctl_info( charout, cdcomp = 'top' ) 124 CALL prt_ctl(tab4d_1=CAST WP(tr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm)124 CALL prt_ctl(tab4d_1=CASTDP(tr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm) 125 125 ENDIF 126 126 ! … … 194 194 WRITE(charout, FMT="('diat')") 195 195 CALL prt_ctl_info( charout, cdcomp = 'top' ) 196 CALL prt_ctl(tab4d_1=CAST WP(tr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm)196 CALL prt_ctl(tab4d_1=CASTDP(tr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm) 197 197 ENDIF 198 198 ! -
NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/TOP/PISCES/P4Z/p4zpoc.F90
r14219 r15648 244 244 WRITE(charout, FMT="('poc1')") 245 245 CALL prt_ctl_info( charout, cdcomp = 'top' ) 246 CALL prt_ctl(tab4d_1=CAST WP(tr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm)246 CALL prt_ctl(tab4d_1=CASTDP(tr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm) 247 247 ENDIF 248 248 … … 436 436 WRITE(charout, FMT="('poc2')") 437 437 CALL prt_ctl_info( charout, cdcomp = 'top' ) 438 CALL prt_ctl(tab4d_1=CAST WP(tr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm)438 CALL prt_ctl(tab4d_1=CASTDP(tr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm) 439 439 ENDIF 440 440 ! -
NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/TOP/PISCES/P4Z/p4zprod.F90
r14219 r15648 333 333 WRITE(charout, FMT="('prod')") 334 334 CALL prt_ctl_info( charout, cdcomp = 'top' ) 335 CALL prt_ctl(tab4d_1=CAST WP(tr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm)335 CALL prt_ctl(tab4d_1=CASTDP(tr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm) 336 336 ENDIF 337 337 ! -
NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/TOP/PISCES/P4Z/p4zrem.F90
r14219 r15648 198 198 WRITE(charout, FMT="('rem1')") 199 199 CALL prt_ctl_info( charout, cdcomp = 'top' ) 200 CALL prt_ctl(tab4d_1=CAST WP(tr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm)200 CALL prt_ctl(tab4d_1=CASTDP(tr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm) 201 201 ENDIF 202 202 … … 220 220 WRITE(charout, FMT="('rem2')") 221 221 CALL prt_ctl_info( charout, cdcomp = 'top' ) 222 CALL prt_ctl(tab4d_1=CAST WP(tr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm)222 CALL prt_ctl(tab4d_1=CASTDP(tr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm) 223 223 ENDIF 224 224 … … 251 251 WRITE(charout, FMT="('rem3')") 252 252 CALL prt_ctl_info( charout, cdcomp = 'top' ) 253 CALL prt_ctl(tab4d_1=CAST WP(tr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm)253 CALL prt_ctl(tab4d_1=CASTDP(tr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm) 254 254 ENDIF 255 255 -
NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/TOP/PISCES/P4Z/p4zsed.F90
r14219 r15648 317 317 WRITE(charout, fmt="('sed ')") 318 318 CALL prt_ctl_info( charout, cdcomp = 'top' ) 319 CALL prt_ctl(tab4d_1=CAST WP(tr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm)319 CALL prt_ctl(tab4d_1=CASTDP(tr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm) 320 320 ENDIF 321 321 ! -
NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/TOP/PISCES/P4Z/p4zsink.F90
r14219 r15648 146 146 WRITE(charout, FMT="('sink')") 147 147 CALL prt_ctl_info( charout, cdcomp = 'top' ) 148 CALL prt_ctl(tab4d_1=CAST WP(tr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm)148 CALL prt_ctl(tab4d_1=CASTDP(tr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm) 149 149 ENDIF 150 150 ! -
NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/TOP/PISCES/P4Z/p5zmeso.F90
r14219 r15648 361 361 WRITE(charout, FMT="('meso')") 362 362 CALL prt_ctl_info( charout, cdcomp = 'top' ) 363 CALL prt_ctl(tab4d_1=CAST WP(tr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm)363 CALL prt_ctl(tab4d_1=CASTDP(tr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm) 364 364 ENDIF 365 365 ! -
NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/TOP/PISCES/P4Z/p5zmicro.F90
r14219 r15648 308 308 WRITE(charout, FMT="('micro')") 309 309 CALL prt_ctl_info( charout, cdcomp = 'top' ) 310 CALL prt_ctl(tab4d_1=CAST WP(tr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm)310 CALL prt_ctl(tab4d_1=CASTDP(tr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm) 311 311 ENDIF 312 312 ! -
NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/TOP/PISCES/P4Z/p5zmort.F90
r14219 r15648 123 123 WRITE(charout, FMT="('nano')") 124 124 CALL prt_ctl_info( charout, cdcomp = 'top' ) 125 CALL prt_ctl(tab4d_1=CAST WP(tr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm)125 CALL prt_ctl(tab4d_1=CASTDP(tr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm) 126 126 ENDIF 127 127 ! … … 181 181 WRITE(charout, FMT="('pico')") 182 182 CALL prt_ctl_info( charout, cdcomp = 'top' ) 183 CALL prt_ctl(tab4d_1=CAST WP(tr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm)183 CALL prt_ctl(tab4d_1=CASTDP(tr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm) 184 184 ENDIF 185 185 ! … … 256 256 WRITE(charout, FMT="('diat')") 257 257 CALL prt_ctl_info( charout, cdcomp = 'top' ) 258 CALL prt_ctl(tab4d_1=CAST WP(tr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm)258 CALL prt_ctl(tab4d_1=CASTDP(tr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm) 259 259 ENDIF 260 260 ! -
NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/TOP/PISCES/P4Z/p5zprod.F90
r14219 r15648 463 463 WRITE(charout, FMT="('prod')") 464 464 CALL prt_ctl_info( charout, cdcomp = 'top' ) 465 CALL prt_ctl(tab4d_1=CAST WP(tr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm)465 CALL prt_ctl(tab4d_1=CASTDP(tr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm) 466 466 ENDIF 467 467 ! -
NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/TOP/PISCES/SED/trcdmp_sed.F90
r14219 r15648 109 109 WRITE(charout, FMT="('dmp ')") 110 110 CALL prt_ctl_info( charout, cdcomp = 'top' ) 111 CALL prt_ctl( tab4d_1=CAST WP(tr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm,clinfo3='trd' )111 CALL prt_ctl( tab4d_1=CASTDP(tr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm,clinfo3='trd' ) 112 112 ENDIF 113 113 ! -
NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/TOP/TRP/trcatf.F90
r14219 r15648 163 163 # else 164 164 IF( ln_linssh ) THEN ; CALL tra_atf_fix( kt, Kbb, Kmm, Kaa, nittrc000, 'TRC', ptr, jptra ) ! linear ssh 165 ELSE ; CALL tra_atf_vvl( kt, Kbb, Kmm, Kaa, nittrc000, CAST WP(rn_Dt), 'TRC', ptr, sbc_trc, sbc_trc_b, jptra ) ! non-linear ssh165 ELSE ; CALL tra_atf_vvl( kt, Kbb, Kmm, Kaa, nittrc000, CASTDP(rn_Dt), 'TRC', ptr, sbc_trc, sbc_trc_b, jptra ) ! non-linear ssh 166 166 # endif 167 167 ENDIF … … 187 187 WRITE(charout, FMT="('nxt')") 188 188 CALL prt_ctl_info( charout, cdcomp = 'top' ) 189 CALL prt_ctl(tab4d_1=CAST WP(ptr(:,:,:,:,Kmm)), mask1=tmask, clinfo=ctrcnm)189 CALL prt_ctl(tab4d_1=CASTDP(ptr(:,:,:,:,Kmm)), mask1=tmask, clinfo=ctrcnm) 190 190 ENDIF 191 191 ! -
NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/TOP/TRP/trcbbl.F90
r14219 r15648 70 70 IF( nn_bbl_ldf == 1 ) THEN 71 71 ! 72 CALL tra_bbl_dif( CAST WP(ptr(:,:,:,:,Kbb)), ptr(:,:,:,:,Krhs), jptra, Kmm )72 CALL tra_bbl_dif( CASTDP(ptr(:,:,:,:,Kbb)), ptr(:,:,:,:,Krhs), jptra, Kmm ) 73 73 IF( sn_cfctl%l_prttrc ) THEN 74 74 WRITE(charout, FMT="(' bbl_dif')") ; CALL prt_ctl_info( charout, cdcomp = 'top' ) 75 CALL prt_ctl( tab4d_1=CAST WP(ptr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm, clinfo3='trd' )75 CALL prt_ctl( tab4d_1=CASTDP(ptr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm, clinfo3='trd' ) 76 76 ENDIF 77 77 ! … … 81 81 IF( nn_bbl_adv /= 0 ) THEN 82 82 ! 83 CALL tra_bbl_adv( CAST WP(ptr(:,:,:,:,Kbb)), ptr(:,:,:,:,Krhs), jptra, Kmm )83 CALL tra_bbl_adv( CASTDP(ptr(:,:,:,:,Kbb)), ptr(:,:,:,:,Krhs), jptra, Kmm ) 84 84 IF( sn_cfctl%l_prttrc ) THEN 85 85 WRITE(charout, FMT="(' bbl_adv')") ; CALL prt_ctl_info( charout, cdcomp = 'top' ) 86 CALL prt_ctl( tab4d_1=CAST WP(ptr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm, clinfo3='trd' )86 CALL prt_ctl( tab4d_1=CASTDP(ptr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm, clinfo3='trd' ) 87 87 ENDIF 88 88 ! -
NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/TOP/TRP/trcdmp.F90
r14219 r15648 152 152 WRITE(charout, FMT="('dmp ')") 153 153 CALL prt_ctl_info( charout, cdcomp = 'top' ) 154 CALL prt_ctl( tab4d_1=CAST WP(ptr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm, clinfo3='trd' )154 CALL prt_ctl( tab4d_1=CASTDP(ptr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm, clinfo3='trd' ) 155 155 ENDIF 156 156 ! -
NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/TOP/TRP/trcldf.F90
r14986 r15648 95 95 CASE ( np_lap ) ! iso-level laplacian 96 96 CALL tra_ldf_lap ( kt, Kmm, nittrc000,'TRC', zahu, zahv, gtru, gtrv, gtrui, gtrvi, & 97 & CAST WP(ptr(:,:,:,:,Kbb)), ptr(:,:,:,:,Krhs), jptra, 1 )97 & CASTDP(ptr(:,:,:,:,Kbb)), ptr(:,:,:,:,Krhs), jptra, 1 ) 98 98 CASE ( np_lap_i ) ! laplacian : standard iso-neutral operator (Madec) 99 99 CALL tra_ldf_iso ( kt, Kmm, nittrc000,'TRC', zahu, zahv, gtru, gtrv, gtrui, gtrvi, & 100 & CAST WP(ptr(:,:,:,:,Kbb)), CASTWP(ptr(:,:,:,:,Kbb)), ptr(:,:,:,:,Krhs), jptra, 1 )100 & CASTDP(ptr(:,:,:,:,Kbb)), CASTDP(ptr(:,:,:,:,Kbb)), ptr(:,:,:,:,Krhs), jptra, 1 ) 101 101 CASE ( np_lap_it ) ! laplacian : triad iso-neutral operator (griffies) 102 102 CALL tra_ldf_triad( kt, Kmm, nittrc000,'TRC', zahu, zahv, gtru, gtrv, gtrui, gtrvi, & 103 & CAST WP(ptr(:,:,:,:,Kbb)), CASTWP(ptr(:,:,:,:,Kbb)), ptr(:,:,:,:,Krhs), jptra, 1 )103 & CASTDP(ptr(:,:,:,:,Kbb)), CASTDP(ptr(:,:,:,:,Kbb)), ptr(:,:,:,:,Krhs), jptra, 1 ) 104 104 CASE ( np_blp , np_blp_i , np_blp_it ) ! bilaplacian: all operator (iso-level, -neutral) 105 105 CALL tra_ldf_blp ( kt, Kmm, nittrc000,'TRC', zahu, zahv, gtru, gtrv, gtrui, gtrvi, & 106 & CAST WP(ptr(:,:,:,:,Kbb)) , ptr(:,:,:,:,Krhs), jptra, nldf_trc )106 & CASTDP(ptr(:,:,:,:,Kbb)) , ptr(:,:,:,:,Krhs), jptra, nldf_trc ) 107 107 END SELECT 108 108 ! … … 118 118 WRITE(charout, FMT="('ldf ')") 119 119 CALL prt_ctl_info( charout, cdcomp = 'top' ) 120 CALL prt_ctl( tab4d_1=CAST WP(ptr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm, clinfo3='trd' )120 CALL prt_ctl( tab4d_1=CASTDP(ptr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm, clinfo3='trd' ) 121 121 ENDIF 122 122 ! -
NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/TOP/TRP/trcrad.F90
r14219 r15648 74 74 WRITE(charout, FMT="('rad')") 75 75 CALL prt_ctl_info( charout, cdcomp = 'top' ) 76 CALL prt_ctl( tab4d_1=CAST WP(ptr(:,:,:,:,Kbb)), mask1=tmask, clinfo=ctrcnm )76 CALL prt_ctl( tab4d_1=CASTDP(ptr(:,:,:,:,Kbb)), mask1=tmask, clinfo=ctrcnm ) 77 77 ENDIF 78 78 ! -
NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/TOP/TRP/trcsbc.F90
r14644 r15648 190 190 IF( sn_cfctl%l_prttrc ) THEN 191 191 WRITE(charout, FMT="('sbc ')") ; CALL prt_ctl_info( charout, cdcomp = 'top' ) 192 CALL prt_ctl( tab4d_1=CAST WP(ptr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm, clinfo3='trd' )192 CALL prt_ctl( tab4d_1=CASTDP(ptr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm, clinfo3='trd' ) 193 193 ENDIF 194 194 IF( l_trdtrc ) DEALLOCATE( ztrtrd ) -
NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/TOP/TRP/trczdf.F90
r14219 r15648 69 69 WRITE(charout, FMT="('zdf ')") 70 70 CALL prt_ctl_info( charout, cdcomp = 'top' ) 71 CALL prt_ctl( tab4d_1=CAST WP(tr(:,:,:,:,Kaa)), mask1=tmask, clinfo=ctrcnm, clinfo3='trd' )71 CALL prt_ctl( tab4d_1=CASTDP(tr(:,:,:,:,Kaa)), mask1=tmask, clinfo=ctrcnm, clinfo3='trd' ) 72 72 END IF 73 73 ! -
NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/TOP/trcini.F90
r14644 r15648 132 132 WRITE(charout, FMT="('ini ')") 133 133 CALL prt_ctl_info( charout, cdcomp = 'top' ) 134 CALL prt_ctl( tab4d_1=CAST WP(tr(:,:,:,:,Kmm)), mask1=tmask, clinfo=ctrcnm)134 CALL prt_ctl( tab4d_1=CASTDP(tr(:,:,:,:,Kmm)), mask1=tmask, clinfo=ctrcnm) 135 135 ENDIF 136 136 9000 FORMAT(' tracer nb : ',i2,' name :',a10,' initial content :',e18.10) -
NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/TOP/trcsms.F90
r14219 r15648 62 62 WRITE(charout, FMT="('sms ')") 63 63 CALL prt_ctl_info( charout, cdcomp = 'top' ) 64 CALL prt_ctl( tab4d_1=CAST WP(tr(:,:,:,:,Kmm)), mask1=tmask, clinfo=ctrcnm )64 CALL prt_ctl( tab4d_1=CASTDP(tr(:,:,:,:,Kmm)), mask1=tmask, clinfo=ctrcnm ) 65 65 ENDIF 66 66 !
Note: See TracChangeset
for help on using the changeset viewer.