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

Timestamp:

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

Author:

sparonuz

Message:

Corrected variables/function names spelled with wrong camelcase mask

File:

• NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/src/OCE/SBC/sbc_phy.F90 (modified) (3 diffs)

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