Changeset 14657

Timestamp:

2021-03-30T17:40:09+02:00 (3 years ago)

Author:

sparonuz

Message:

leftovers from revision r14649 - mispelled funcion BULK still had some uppercase occurrence.

Location:

NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/src/OCE/SBC

Files:

• sbc_phy.F90 (modified) (2 diffs)
• sbcblk.F90 (modified) (1 diff)

NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/src/OCE/SBC/sbc_phy.F90

@@ -722 +722 @@
       zCe = zz0*pqst(ji,jj)/zdq
 
-      CALL BULK_FORMULA( pzu, pTs(ji,jj), pqs(ji,jj), pTa(ji,jj), pqa(ji,jj), zCd, zCh, zCe, &
+      CALL bulk_formula( pzu, pTs(ji,jj), pqs(ji,jj), pTa(ji,jj), pqa(ji,jj), zCd, zCh, zCe, &
          &              pwnd(ji,jj), pUb(ji,jj), ppa(ji,jj), &
          &              pTau(ji,jj), zQsen, zQlat )
@@ -823 +823 @@
       DO_2D( nn_hls, nn_hls, nn_hls, nn_hls )
 
-      CALL BULK_FORMULA_SCLR( pzu, pTs(ji,jj), pqs(ji,jj), pTa(ji,jj), pqa(ji,jj), &
+      CALL bulk_formula_sclr( pzu, pTs(ji,jj), pqs(ji,jj), pTa(ji,jj), pqa(ji,jj), &
          &                    pCd(ji,jj), pCh(ji,jj), pCe(ji,jj),                  &
          &                    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

@@ -784 +784 @@
          END_2D
       ELSE                      !==  BLK formulation  ==!   turbulent fluxes computation
-         CALL BULK_FORMULA( rn_zu, ptsk(:,:), pssq(:,:), theta_zu(:,:), q_zu(:,:), &
+         CALL bulk_formula( rn_zu, ptsk(:,:), pssq(:,:), theta_zu(:,:), q_zu(:,:), &
             &               zcd_oce(:,:), zch_oce(:,:), zce_oce(:,:),          &
             &               wndm(:,:), zU_zu(:,:), pslp(:,:),                  &