New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 15648 – NEMO

Changeset 15648


Ignore:
Timestamp:
2022-01-17T12:35:51+01:00 (2 years ago)
Author:
sparonuz
Message:

Updated name preprocessor function CASTWP to CASTDP

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  
    706706      CALL prt_ctl_info(' - Cell values : ') 
    707707      CALL prt_ctl_info('   ~~~~~~~~~~~~~ ') 
    708       CALL prt_ctl(tab2d_1=CASTWP(e1e2t)      , clinfo1=' cell area   :') 
     708      CALL prt_ctl(tab2d_1=CASTDP(e1e2t)      , clinfo1=' cell area   :') 
    709709      CALL prt_ctl(tab2d_1=at_i       , clinfo1=' at_i        :') 
    710710      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  
    330330            ! 
    331331            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( CASTWP(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)) ) 
    333333            ELSE                   ;   sst_m(:,:) = ts(:,:,1,jp_tem, Kmm) 
    334334            ENDIF 

  • NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/ICE/icestp.F90

    r14986 r15648  
    213213      ! --- Ocean time step --- ! 
    214214      !-------------------------! 
    215       CALL ice_update_tau( kt, CASTWP(uu(:,:,1,Kbb)), CASTWP(vv(:,:,1,Kbb)) )         ! -- update surface ocean stresses 
     215      CALL ice_update_tau( kt, CASTDP(uu(:,:,1,Kbb)), CASTDP(vv(:,:,1,Kbb)) )         ! -- update surface ocean stresses 
    216216!!gm   remark, the ocean-ice stress is not saved in ice diag call above .....  find a solution!!! 
    217217      ! 

  • NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/TOP/PISCES/P2Z/p2zbio.F90

    r14644 r15648  
    369369         WRITE(charout, FMT="('bio')") 
    370370         CALL prt_ctl_info( charout, cdcomp = 'top' ) 
    371          CALL prt_ctl(tab4d_1=CASTWP(tr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm) 
     371         CALL prt_ctl(tab4d_1=CASTDP(tr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm) 
    372372      ENDIF 
    373373      ! 

  • NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/TOP/PISCES/P2Z/p2zexp.F90

    r14219 r15648  
    142142         WRITE(charout, FMT="('exp')") 
    143143         CALL prt_ctl_info( charout, cdcomp = 'top' ) 
    144          CALL prt_ctl(tab4d_1=CASTWP(tr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm) 
     144         CALL prt_ctl(tab4d_1=CASTDP(tr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm) 
    145145      ENDIF 
    146146      ! 

  • NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/TOP/PISCES/P2Z/p2zopt.F90

    r14219 r15648  
    127127         WRITE(charout, FMT="('opt')") 
    128128         CALL prt_ctl_info( charout, cdcomp = 'top' ) 
    129          CALL prt_ctl( tab4d_1=CASTWP(tr(:,:,:,:,Kmm)), mask1=tmask, clinfo=ctrcnm ) 
     129         CALL prt_ctl( tab4d_1=CASTDP(tr(:,:,:,:,Kmm)), mask1=tmask, clinfo=ctrcnm ) 
    130130      ENDIF 
    131131      ! 

  • NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/TOP/PISCES/P2Z/p2zsed.F90

    r14219 r15648  
    111111         WRITE(charout, FMT="('sed')") 
    112112         CALL prt_ctl_info( charout, cdcomp = 'top' ) 
    113          CALL prt_ctl(tab4d_1=CASTWP(tr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm) 
     113         CALL prt_ctl(tab4d_1=CASTDP(tr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm) 
    114114      ENDIF 
    115115      ! 

  • NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/TOP/PISCES/P4Z/p4zagg.F90

    r14219 r15648  
    172172         WRITE(charout, FMT="('agg')") 
    173173         CALL prt_ctl_info( charout, cdcomp = 'top' ) 
    174          CALL prt_ctl(tab4d_1=CASTWP(tr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm) 
     174         CALL prt_ctl(tab4d_1=CASTDP(tr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm) 
    175175      ENDIF 
    176176      ! 

  • NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/TOP/PISCES/P4Z/p4zbio.F90

    r14219 r15648  
    110110         WRITE(charout, FMT="('bio ')") 
    111111         CALL prt_ctl_info( charout, cdcomp = 'top' ) 
    112          CALL prt_ctl(tab4d_1=CASTWP(tr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm) 
     112         CALL prt_ctl(tab4d_1=CASTDP(tr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm) 
    113113      ENDIF 
    114114      ! 

  • NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/TOP/PISCES/P4Z/p4zfechem.F90

    r14219 r15648  
    220220         WRITE(charout, FMT="('fechem')") 
    221221         CALL prt_ctl_info( charout, cdcomp = 'top' ) 
    222          CALL prt_ctl(tab4d_1=CASTWP(tr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm) 
     222         CALL prt_ctl(tab4d_1=CASTDP(tr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm) 
    223223      ENDIF 
    224224      ! 

  • NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/TOP/PISCES/P4Z/p4zflx.F90

    r14219 r15648  
    180180         WRITE(charout, FMT="('flx ')") 
    181181         CALL prt_ctl_info( charout, cdcomp = 'top' ) 
    182          CALL prt_ctl(tab4d_1=CASTWP(tr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm) 
     182         CALL prt_ctl(tab4d_1=CASTDP(tr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm) 
    183183      ENDIF 
    184184 

  • NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/TOP/PISCES/P4Z/p4zligand.F90

    r14219 r15648  
    9191         WRITE(charout, FMT="('ligand1')") 
    9292         CALL prt_ctl_info( charout, cdcomp = 'top' ) 
    93          CALL prt_ctl(tab4d_1=CASTWP(tr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm) 
     93         CALL prt_ctl(tab4d_1=CASTDP(tr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm) 
    9494      ENDIF 
    9595      ! 

  • NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/TOP/PISCES/P4Z/p4zlys.F90

    r14219 r15648  
    132132        WRITE(charout, FMT="('lys ')") 
    133133        CALL prt_ctl_info( charout, cdcomp = 'top' ) 
    134         CALL prt_ctl(tab4d_1=CASTWP(tr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm) 
     134        CALL prt_ctl(tab4d_1=CASTDP(tr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm) 
    135135      ENDIF 
    136136      ! 

  • NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/TOP/PISCES/P4Z/p4zmeso.F90

    r14219 r15648  
    248248        WRITE(charout, FMT="('meso')") 
    249249        CALL prt_ctl_info( charout, cdcomp = 'top' ) 
    250         CALL prt_ctl(tab4d_1=CASTWP(tr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm) 
     250        CALL prt_ctl(tab4d_1=CASTDP(tr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm) 
    251251      ENDIF 
    252252      ! 

  • NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/TOP/PISCES/P4Z/p4zmicro.F90

    r14219 r15648  
    204204         WRITE(charout, FMT="('micro')") 
    205205         CALL prt_ctl_info( charout, cdcomp = 'top' ) 
    206          CALL prt_ctl(tab4d_1=CASTWP(tr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm) 
     206         CALL prt_ctl(tab4d_1=CASTDP(tr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm) 
    207207      ENDIF 
    208208      ! 

  • NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/TOP/PISCES/P4Z/p4zmort.F90

    r14219 r15648  
    122122         WRITE(charout, FMT="('nano')") 
    123123         CALL prt_ctl_info( charout, cdcomp = 'top' ) 
    124          CALL prt_ctl(tab4d_1=CASTWP(tr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm) 
     124         CALL prt_ctl(tab4d_1=CASTDP(tr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm) 
    125125       ENDIF 
    126126      ! 
    … …  
    194194         WRITE(charout, FMT="('diat')") 
    195195         CALL prt_ctl_info( charout, cdcomp = 'top' ) 
    196          CALL prt_ctl(tab4d_1=CASTWP(tr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm) 
     196         CALL prt_ctl(tab4d_1=CASTDP(tr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm) 
    197197      ENDIF 
    198198      ! 

  • NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/TOP/PISCES/P4Z/p4zpoc.F90

    r14219 r15648  
    244244        WRITE(charout, FMT="('poc1')") 
    245245        CALL prt_ctl_info( charout, cdcomp = 'top' ) 
    246         CALL prt_ctl(tab4d_1=CASTWP(tr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm) 
     246        CALL prt_ctl(tab4d_1=CASTDP(tr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm) 
    247247     ENDIF 
    248248 
    … …  
    436436         WRITE(charout, FMT="('poc2')") 
    437437         CALL prt_ctl_info( charout, cdcomp = 'top' ) 
    438          CALL prt_ctl(tab4d_1=CASTWP(tr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm) 
     438         CALL prt_ctl(tab4d_1=CASTDP(tr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm) 
    439439      ENDIF 
    440440      ! 

  • NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/TOP/PISCES/P4Z/p4zprod.F90

    r14219 r15648  
    333333         WRITE(charout, FMT="('prod')") 
    334334         CALL prt_ctl_info( charout, cdcomp = 'top' ) 
    335          CALL prt_ctl(tab4d_1=CASTWP(tr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm) 
     335         CALL prt_ctl(tab4d_1=CASTDP(tr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm) 
    336336     ENDIF 
    337337      ! 

  • NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/TOP/PISCES/P4Z/p4zrem.F90

    r14219 r15648  
    198198         WRITE(charout, FMT="('rem1')") 
    199199         CALL prt_ctl_info( charout, cdcomp = 'top' ) 
    200          CALL prt_ctl(tab4d_1=CASTWP(tr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm) 
     200         CALL prt_ctl(tab4d_1=CASTDP(tr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm) 
    201201       ENDIF 
    202202 
    … …  
    220220         WRITE(charout, FMT="('rem2')") 
    221221         CALL prt_ctl_info( charout, cdcomp = 'top' ) 
    222          CALL prt_ctl(tab4d_1=CASTWP(tr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm) 
     222         CALL prt_ctl(tab4d_1=CASTDP(tr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm) 
    223223       ENDIF 
    224224 
    … …  
    251251         WRITE(charout, FMT="('rem3')") 
    252252         CALL prt_ctl_info( charout, cdcomp = 'top' ) 
    253          CALL prt_ctl(tab4d_1=CASTWP(tr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm) 
     253         CALL prt_ctl(tab4d_1=CASTDP(tr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm) 
    254254       ENDIF 
    255255 

  • NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/TOP/PISCES/P4Z/p4zsed.F90

    r14219 r15648  
    317317         WRITE(charout, fmt="('sed ')") 
    318318         CALL prt_ctl_info( charout, cdcomp = 'top' ) 
    319          CALL prt_ctl(tab4d_1=CASTWP(tr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm) 
     319         CALL prt_ctl(tab4d_1=CASTDP(tr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm) 
    320320      ENDIF 
    321321      ! 

  • NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/TOP/PISCES/P4Z/p4zsink.F90

    r14219 r15648  
    146146         WRITE(charout, FMT="('sink')") 
    147147         CALL prt_ctl_info( charout, cdcomp = 'top' ) 
    148          CALL prt_ctl(tab4d_1=CASTWP(tr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm) 
     148         CALL prt_ctl(tab4d_1=CASTDP(tr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm) 
    149149      ENDIF 
    150150      ! 

  • NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/TOP/PISCES/P4Z/p5zmeso.F90

    r14219 r15648  
    361361        WRITE(charout, FMT="('meso')") 
    362362        CALL prt_ctl_info( charout, cdcomp = 'top' ) 
    363         CALL prt_ctl(tab4d_1=CASTWP(tr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm) 
     363        CALL prt_ctl(tab4d_1=CASTDP(tr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm) 
    364364      ENDIF 
    365365      ! 

  • NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/TOP/PISCES/P4Z/p5zmicro.F90

    r14219 r15648  
    308308         WRITE(charout, FMT="('micro')") 
    309309         CALL prt_ctl_info( charout, cdcomp = 'top' ) 
    310          CALL prt_ctl(tab4d_1=CASTWP(tr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm) 
     310         CALL prt_ctl(tab4d_1=CASTDP(tr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm) 
    311311      ENDIF 
    312312      ! 

  • NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/TOP/PISCES/P4Z/p5zmort.F90

    r14219 r15648  
    123123         WRITE(charout, FMT="('nano')") 
    124124         CALL prt_ctl_info( charout, cdcomp = 'top' ) 
    125          CALL prt_ctl(tab4d_1=CASTWP(tr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm) 
     125         CALL prt_ctl(tab4d_1=CASTDP(tr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm) 
    126126       ENDIF 
    127127      ! 
    … …  
    181181         WRITE(charout, FMT="('pico')") 
    182182         CALL prt_ctl_info( charout, cdcomp = 'top' ) 
    183          CALL prt_ctl(tab4d_1=CASTWP(tr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm) 
     183         CALL prt_ctl(tab4d_1=CASTDP(tr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm) 
    184184       ENDIF 
    185185      ! 
    … …  
    256256         WRITE(charout, FMT="('diat')") 
    257257         CALL prt_ctl_info( charout, cdcomp = 'top' ) 
    258          CALL prt_ctl(tab4d_1=CASTWP(tr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm) 
     258         CALL prt_ctl(tab4d_1=CASTDP(tr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm) 
    259259      ENDIF 
    260260      ! 

  • NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/TOP/PISCES/P4Z/p5zprod.F90

    r14219 r15648  
    463463         WRITE(charout, FMT="('prod')") 
    464464         CALL prt_ctl_info( charout, cdcomp = 'top' ) 
    465          CALL prt_ctl(tab4d_1=CASTWP(tr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm) 
     465         CALL prt_ctl(tab4d_1=CASTDP(tr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm) 
    466466      ENDIF 
    467467      ! 

  • NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/TOP/PISCES/SED/trcdmp_sed.F90

    r14219 r15648  
    109109         WRITE(charout, FMT="('dmp ')") 
    110110         CALL prt_ctl_info( charout, cdcomp = 'top' ) 
    111          CALL prt_ctl( tab4d_1=CASTWP(tr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm,clinfo3='trd' ) 
     111         CALL prt_ctl( tab4d_1=CASTDP(tr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm,clinfo3='trd' ) 
    112112      ENDIF 
    113113      ! 

  • NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/TOP/TRP/trcatf.F90

    r14219 r15648  
    163163# else 
    164164            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, CASTWP(rn_Dt), 'TRC', ptr, sbc_trc, sbc_trc_b, jptra )    ! non-linear ssh 
     165            ELSE                   ;   CALL tra_atf_vvl( kt, Kbb, Kmm, Kaa, nittrc000, CASTDP(rn_Dt), 'TRC', ptr, sbc_trc, sbc_trc_b, jptra )    ! non-linear ssh 
    166166# endif 
    167167            ENDIF 
    … …  
    187187         WRITE(charout, FMT="('nxt')") 
    188188         CALL prt_ctl_info( charout, cdcomp = 'top' ) 
    189          CALL prt_ctl(tab4d_1=CASTWP(ptr(:,:,:,:,Kmm)), mask1=tmask, clinfo=ctrcnm) 
     189         CALL prt_ctl(tab4d_1=CASTDP(ptr(:,:,:,:,Kmm)), mask1=tmask, clinfo=ctrcnm) 
    190190      ENDIF 
    191191      ! 

  • NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/TOP/TRP/trcbbl.F90

    r14219 r15648  
    7070      IF( nn_bbl_ldf == 1 ) THEN 
    7171         ! 
    72          CALL tra_bbl_dif( CASTWP(ptr(:,:,:,:,Kbb)), ptr(:,:,:,:,Krhs), jptra, Kmm )   
     72         CALL tra_bbl_dif( CASTDP(ptr(:,:,:,:,Kbb)), ptr(:,:,:,:,Krhs), jptra, Kmm )   
    7373         IF( sn_cfctl%l_prttrc )   THEN 
    7474            WRITE(charout, FMT="(' bbl_dif')")  ;  CALL prt_ctl_info( charout, cdcomp = 'top' ) 
    75             CALL prt_ctl( tab4d_1=CASTWP(ptr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm, clinfo3='trd' ) 
     75            CALL prt_ctl( tab4d_1=CASTDP(ptr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm, clinfo3='trd' ) 
    7676         ENDIF 
    7777         ! 
    … …  
    8181      IF( nn_bbl_adv /= 0 ) THEN 
    8282         ! 
    83          CALL tra_bbl_adv( CASTWP(ptr(:,:,:,:,Kbb)), ptr(:,:,:,:,Krhs), jptra, Kmm )   
     83         CALL tra_bbl_adv( CASTDP(ptr(:,:,:,:,Kbb)), ptr(:,:,:,:,Krhs), jptra, Kmm )   
    8484         IF( sn_cfctl%l_prttrc )   THEN 
    8585            WRITE(charout, FMT="(' bbl_adv')")  ;  CALL prt_ctl_info( charout, cdcomp = 'top' ) 
    86             CALL prt_ctl( tab4d_1=CASTWP(ptr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm, clinfo3='trd' ) 
     86            CALL prt_ctl( tab4d_1=CASTDP(ptr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm, clinfo3='trd' ) 
    8787         ENDIF 
    8888         ! 

  • NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/TOP/TRP/trcdmp.F90

    r14219 r15648  
    152152         WRITE(charout, FMT="('dmp ')") 
    153153         CALL prt_ctl_info( charout, cdcomp = 'top' ) 
    154          CALL prt_ctl( tab4d_1=CASTWP(ptr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm, clinfo3='trd' ) 
     154         CALL prt_ctl( tab4d_1=CASTDP(ptr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm, clinfo3='trd' ) 
    155155      ENDIF 
    156156      ! 

  • NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/TOP/TRP/trcldf.F90

    r14986 r15648  
    9595      CASE ( np_lap   )                                                                                    ! iso-level laplacian 
    9696         CALL tra_ldf_lap  ( kt, Kmm, nittrc000,'TRC', zahu, zahv, gtru, gtrv, gtrui, gtrvi,            & 
    97            &                     CASTWP(ptr(:,:,:,:,Kbb)), ptr(:,:,:,:,Krhs),                   jptra, 1 ) 
     97           &                     CASTDP(ptr(:,:,:,:,Kbb)), ptr(:,:,:,:,Krhs),                   jptra, 1 ) 
    9898      CASE ( np_lap_i )                                                                                    ! laplacian : standard iso-neutral operator (Madec) 
    9999         CALL tra_ldf_iso  ( kt, Kmm, nittrc000,'TRC', zahu, zahv, gtru, gtrv, gtrui, gtrvi,            & 
    100            &                     CASTWP(ptr(:,:,:,:,Kbb)), CASTWP(ptr(:,:,:,:,Kbb)), ptr(:,:,:,:,Krhs), jptra, 1 ) 
     100           &                     CASTDP(ptr(:,:,:,:,Kbb)), CASTDP(ptr(:,:,:,:,Kbb)), ptr(:,:,:,:,Krhs), jptra, 1 ) 
    101101      CASE ( np_lap_it )                                                                                   ! laplacian : triad iso-neutral operator (griffies) 
    102102         CALL tra_ldf_triad( kt, Kmm, nittrc000,'TRC', zahu, zahv, gtru, gtrv, gtrui, gtrvi,            & 
    103            &                     CASTWP(ptr(:,:,:,:,Kbb)), CASTWP(ptr(:,:,:,:,Kbb)), ptr(:,:,:,:,Krhs), jptra, 1 ) 
     103           &                     CASTDP(ptr(:,:,:,:,Kbb)), CASTDP(ptr(:,:,:,:,Kbb)), ptr(:,:,:,:,Krhs), jptra, 1 ) 
    104104      CASE ( np_blp , np_blp_i , np_blp_it )                                                               ! bilaplacian: all operator (iso-level, -neutral) 
    105105         CALL tra_ldf_blp  ( kt, Kmm, nittrc000,'TRC', zahu, zahv, gtru, gtrv, gtrui, gtrvi,            & 
    106            &                     CASTWP(ptr(:,:,:,:,Kbb)) , ptr(:,:,:,:,Krhs),                 jptra, nldf_trc ) 
     106           &                     CASTDP(ptr(:,:,:,:,Kbb)) , ptr(:,:,:,:,Krhs),                 jptra, nldf_trc ) 
    107107      END SELECT 
    108108      ! 
    … …  
    118118         WRITE(charout, FMT="('ldf ')") 
    119119         CALL prt_ctl_info( charout, cdcomp = 'top' ) 
    120          CALL prt_ctl( tab4d_1=CASTWP(ptr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm, clinfo3='trd' ) 
     120         CALL prt_ctl( tab4d_1=CASTDP(ptr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm, clinfo3='trd' ) 
    121121      ENDIF 
    122122      ! 

  • NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/TOP/TRP/trcrad.F90

    r14219 r15648  
    7474         WRITE(charout, FMT="('rad')") 
    7575         CALL prt_ctl_info( charout, cdcomp = 'top' ) 
    76          CALL prt_ctl( tab4d_1=CASTWP(ptr(:,:,:,:,Kbb)), mask1=tmask, clinfo=ctrcnm ) 
     76         CALL prt_ctl( tab4d_1=CASTDP(ptr(:,:,:,:,Kbb)), mask1=tmask, clinfo=ctrcnm ) 
    7777      ENDIF 
    7878      ! 

  • NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/TOP/TRP/trcsbc.F90

    r14644 r15648  
    190190      IF( sn_cfctl%l_prttrc )   THEN 
    191191         WRITE(charout, FMT="('sbc ')") ;  CALL prt_ctl_info( charout, cdcomp = 'top' ) 
    192                                            CALL prt_ctl( tab4d_1=CASTWP(ptr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm, clinfo3='trd' ) 
     192                                           CALL prt_ctl( tab4d_1=CASTDP(ptr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm, clinfo3='trd' ) 
    193193      ENDIF 
    194194      IF( l_trdtrc )  DEALLOCATE( ztrtrd ) 

  • NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/TOP/TRP/trczdf.F90

    r14219 r15648  
    6969         WRITE(charout, FMT="('zdf ')") 
    7070         CALL prt_ctl_info( charout, cdcomp = 'top' ) 
    71          CALL prt_ctl( tab4d_1=CASTWP(tr(:,:,:,:,Kaa)), mask1=tmask, clinfo=ctrcnm, clinfo3='trd' ) 
     71         CALL prt_ctl( tab4d_1=CASTDP(tr(:,:,:,:,Kaa)), mask1=tmask, clinfo=ctrcnm, clinfo3='trd' ) 
    7272      END IF 
    7373      ! 

  • NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/TOP/trcini.F90

    r14644 r15648  
    132132         WRITE(charout, FMT="('ini ')") 
    133133         CALL prt_ctl_info( charout, cdcomp = 'top' ) 
    134          CALL prt_ctl( tab4d_1=CASTWP(tr(:,:,:,:,Kmm)), mask1=tmask, clinfo=ctrcnm) 
     134         CALL prt_ctl( tab4d_1=CASTDP(tr(:,:,:,:,Kmm)), mask1=tmask, clinfo=ctrcnm) 
    135135      ENDIF 
    1361369000  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  
    6262         WRITE(charout, FMT="('sms ')") 
    6363         CALL prt_ctl_info( charout, cdcomp = 'top' ) 
    64          CALL prt_ctl( tab4d_1=CASTWP(tr(:,:,:,:,Kmm)), mask1=tmask, clinfo=ctrcnm ) 
     64         CALL prt_ctl( tab4d_1=CASTDP(tr(:,:,:,:,Kmm)), mask1=tmask, clinfo=ctrcnm ) 
    6565      ENDIF 
    6666      ! 
Note: See TracChangeset for help on using the changeset viewer.