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 14649 for NEMO – NEMO

Changeset 14649 for NEMO


Ignore:
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
Files:
6 edited

Legend:

Unmodified
Added
Removed

  • NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/src/OCE/DIU/diu_bulk.F90

    r14219 r14649  
    9999      REAL(dp), DIMENSION(jpi,jpj)          , INTENT(in) ::   prho           ! water density  (kg/m^3) 
    100100      REAL(dp)                              , INTENT(in) ::   p_rdt          ! time-step 
    101       REAL(wp), DIMENSION(jpi,jpj), OPTIONAL, INTENT(in) ::   pLa            ! Langmuir number 
     101      REAL(wp), DIMENSION(jpi,jpj), OPTIONAL, INTENT(in) ::   pla            ! Langmuir number 
    102102      REAL(wp), DIMENSION(jpi,jpj), OPTIONAL, INTENT(in) ::   pthick         ! warm layer thickness (m) 
    103103      REAL(wp), DIMENSION(jpi,jpj), OPTIONAL, INTENT(in) ::   pcoolthick     ! cool skin thickness (m) 

  • NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/src/OCE/DYN/dynspg_ts.F90

    r14648 r14649  
    11471147      END SELECT 
    11481148       
    1149    END SUBROUTINE dyn_cor_2d_init 
     1149   END SUBROUTINE dyn_cor_2D_init  
    11501150 
    11511151 

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

    r14219 r14649  
    735735 
    736736 
    737    SUBROUTINE BULK_FORMULA_SCLR( pzu, pTs, pqs, pTa, pqa, & 
     737   SUBROUTINE bulk_formula_sclr( pzu, pTs, pqs, pTa, pqa, & 
    738738      &                          pCd, pCh, pCe,           & 
    739739      &                          pwnd, pUb, ppa,         & 
    … …  
    787787      IF( PRESENT(prhoa) ) prhoa = zrho 
    788788 
    789    END SUBROUTINE BULK_FORMULA_SCLR 
    790    !! 
    791    SUBROUTINE BULK_FORMULA_VCTR( pzu, pTs, pqs, pTa, pqa, & 
     789   END SUBROUTINE bulk_formula_sclr 
     790   !! 
     791   SUBROUTINE bulk_formula_vctr( pzu, pTs, pqs, pTa, pqa, & 
    792792      &                          pCd, pCh, pCe,           & 
    793793      &                          pwnd, pUb, ppa,         & 
    … …  
    832832      IF( PRESENT(prhoa) ) prhoa(ji,jj) = zrho 
    833833      END_2D 
    834    END SUBROUTINE BULK_FORMULA_VCTR 
     834   END SUBROUTINE bulk_formula_vctr 
    835835 
    836836 

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

    r14072 r14649  
    202202            zLa = SQRT(zusw/MAX(pustk(ji,jj),1.E-6)) 
    203203         ELSE 
    204             zla = 0.3_wp 
     204            zLa = 0.3_wp 
    205205         ENDIF 
    206          zfLa = MAX( zla**(-2._wp/3._wp) , 1._wp )   ! Eq.(6) 
     206         zfLa = MAX( zLa**(-2._wp/3._wp) , 1._wp )   ! Eq.(6) 
    207207 
    208208         zwf = 0.5_wp + SIGN(0.5_wp, zQabs)  ! zQabs > 0. => 1.  / zQabs < 0. => 0. 

  • NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/src/OCE/TRA/traadv_fct.F90

    r14648 r14649  
    638638      !!        The 3d array zwt is used as a work space array. 
    639639      !!---------------------------------------------------------------------- 
    640       REAL(wp),DIMENSION(A2D(nn_hls),jpk), INTENT(in   ) ::   pD, pU, PL    ! 3-diagonal matrix 
     640      REAL(wp),DIMENSION(A2D(nn_hls),jpk), INTENT(in   ) ::   pD, pU, pL    ! 3-diagonal matrix 
    641641      REAL(wp),DIMENSION(A2D(nn_hls),jpk), INTENT(in   ) ::   pRHS          ! Right-Hand-Side 
    642642      REAL(wp),DIMENSION(A2D(nn_hls),jpk), INTENT(  out) ::   pt_out        !!gm field at level=F(klev) 

  • NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/src/OCE/TRD/trdpen.F90

    r14219 r14649  
    8080      IF( kt /= nkstp ) THEN     ! full eos: set partial derivatives at the 1st call of kt time step 
    8181         nkstp = kt 
    82          CALL eos_pen( CASTWP(ts(:,:,:,:,Kmm)), rab_PE, zpe, Kmm ) 
     82         CALL eos_pen( CASTWP(ts(:,:,:,:,Kmm)), rab_pe, zpe, Kmm ) 
    8383         CALL iom_put( "alphaPE", rab_pe(:,:,:,jp_tem) ) 
    8484         CALL iom_put( "betaPE" , rab_pe(:,:,:,jp_sal) ) 
Note: See TracChangeset for help on using the changeset viewer.