Changeset 14657
- Timestamp:
- 2021-03-30T17:40:09+02:00 (3 years ago)
- Location:
- NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/src/OCE/SBC
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/src/OCE/SBC/sbc_phy.F90
r14649 r14657 722 722 zCe = zz0*pqst(ji,jj)/zdq 723 723 724 CALL BULK_FORMULA( pzu, pTs(ji,jj), pqs(ji,jj), pTa(ji,jj), pqa(ji,jj), zCd, zCh, zCe, &724 CALL bulk_formula( pzu, pTs(ji,jj), pqs(ji,jj), pTa(ji,jj), pqa(ji,jj), zCd, zCh, zCe, & 725 725 & pwnd(ji,jj), pUb(ji,jj), ppa(ji,jj), & 726 726 & pTau(ji,jj), zQsen, zQlat ) … … 823 823 DO_2D( nn_hls, nn_hls, nn_hls, nn_hls ) 824 824 825 CALL BULK_FORMULA_SCLR( pzu, pTs(ji,jj), pqs(ji,jj), pTa(ji,jj), pqa(ji,jj), &825 CALL bulk_formula_sclr( pzu, pTs(ji,jj), pqs(ji,jj), pTa(ji,jj), pqa(ji,jj), & 826 826 & pCd(ji,jj), pCh(ji,jj), pCe(ji,jj), & 827 827 & pwnd(ji,jj), pUb(ji,jj), ppa(ji,jj), & -
NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/src/OCE/SBC/sbcblk.F90
r14644 r14657 784 784 END_2D 785 785 ELSE !== BLK formulation ==! turbulent fluxes computation 786 CALL BULK_FORMULA( rn_zu, ptsk(:,:), pssq(:,:), theta_zu(:,:), q_zu(:,:), &786 CALL bulk_formula( rn_zu, ptsk(:,:), pssq(:,:), theta_zu(:,:), q_zu(:,:), & 787 787 & zcd_oce(:,:), zch_oce(:,:), zce_oce(:,:), & 788 788 & wndm(:,:), zU_zu(:,:), pslp(:,:), &
Note: See TracChangeset
for help on using the changeset viewer.