Changeset 14649 for NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/src/OCE/SBC

Timestamp:

2021-03-26T18:13:09+01:00 (3 years ago)

Author:

sparonuz

Message:

Corrected variables/function names spelled with wrong camelcase mask

Location:

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

Files:

• sbc_phy.F90 (modified) (3 diffs)
• sbcblk_skin_ecmwf.F90 (modified) (1 diff)

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

@@ -735 +735 @@
 
 
-   SUBROUTINE BULK_FORMULA_SCLR( pzu, pTs, pqs, pTa, pqa, &
+   SUBROUTINE bulk_formula_sclr( pzu, pTs, pqs, pTa, pqa, &
       &                          pCd, pCh, pCe,           &
       &                          pwnd, pUb, ppa,         &
@@ -787 +787 @@
       IF( PRESENT(prhoa) ) prhoa = zrho
 
-   END SUBROUTINE BULK_FORMULA_SCLR
-   !!
-   SUBROUTINE BULK_FORMULA_VCTR( pzu, pTs, pqs, pTa, pqa, &
+   END SUBROUTINE bulk_formula_sclr
+   !!
+   SUBROUTINE bulk_formula_vctr( pzu, pTs, pqs, pTa, pqa, &
       &                          pCd, pCh, pCe,           &
       &                          pwnd, pUb, ppa,         &
@@ -832 +832 @@
       IF( PRESENT(prhoa) ) prhoa(ji,jj) = zrho
       END_2D
-   END SUBROUTINE BULK_FORMULA_VCTR
+   END SUBROUTINE bulk_formula_vctr
 
 

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

@@ -202 +202 @@
             zLa = SQRT(zusw/MAX(pustk(ji,jj),1.E-6))
          ELSE
-            zla = 0.3_wp
+            zLa = 0.3_wp
          ENDIF
-         zfLa = MAX( zla**(-2._wp/3._wp) , 1._wp )   ! Eq.(6)
+         zfLa = MAX( zLa**(-2._wp/3._wp) , 1._wp )   ! Eq.(6)
 
          zwf = 0.5_wp + SIGN(0.5_wp, zQabs)  ! zQabs > 0. => 1.  / zQabs < 0. => 0.