Changeset 11962 for NEMO/branches/2019/dev_r11085_ASINTER-05_Brodeau_Advanced_Bulk/src/OCE/SBC/sbcblk_algo_coare3p0.F90

Timestamp:

2019-11-25T23:31:07+01:00 (4 years ago)

Author:

laurent

Message:

Syntax improvements and minor bug fixes...

File:

• NEMO/branches/2019/dev_r11085_ASINTER-05_Brodeau_Advanced_Bulk/src/OCE/SBC/sbcblk_algo_coare3p0.F90 (modified) (5 diffs)

NEMO/branches/2019/dev_r11085_ASINTER-05_Brodeau_Advanced_Bulk/src/OCE/SBC/sbcblk_algo_coare3p0.F90

@@ -43 +43 @@
    PRIVATE
 
-   PUBLIC :: COARE3P0_INIT, TURB_COARE3P0
+   PUBLIC :: SBCBLK_ALGO_COARE3P0_INIT, TURB_COARE3P0
 
    !! COARE own values for given constants:
@@ -55 +55 @@
 
 
-   SUBROUTINE coare3p0_init(l_use_cs, l_use_wl)
+   SUBROUTINE sbcblk_algo_coare3p0_init(l_use_cs, l_use_wl)
       !!---------------------------------------------------------------------
-      !!                  ***  FUNCTION coare3p0_init  ***
+      !!                  ***  FUNCTION sbcblk_algo_coare3p0_init  ***
       !!
       !! INPUT :
@@ -71 +71 @@
          ierr = 0
          ALLOCATE ( Tau_ac(jpi,jpj) , Qnt_ac(jpi,jpj), dT_wl(jpi,jpj), Hz_wl(jpi,jpj), STAT=ierr )
-         IF( ierr > 0 ) CALL ctl_stop( ' COARE3P0_INIT => allocation of Tau_ac, Qnt_ac, dT_wl & Hz_wl failed!' )
+         IF( ierr > 0 ) CALL ctl_stop( ' SBCBLK_ALGO_COARE3P0_INIT => allocation of Tau_ac, Qnt_ac, dT_wl & Hz_wl failed!' )
          Tau_ac(:,:) = 0._wp
          Qnt_ac(:,:) = 0._wp
@@ -80 +80 @@
          ierr = 0
          ALLOCATE ( dT_cs(jpi,jpj), STAT=ierr )
-         IF( ierr > 0 ) CALL ctl_stop( ' COARE3P0_INIT => allocation of dT_cs failed!' )
+         IF( ierr > 0 ) CALL ctl_stop( ' SBCBLK_ALGO_COARE3P0_INIT => allocation of dT_cs failed!' )
          dT_cs(:,:) = -0.25_wp  ! First guess of skin correction
       END IF
-   END SUBROUTINE coare3p0_init
+   END SUBROUTINE sbcblk_algo_coare3p0_init
 
 
@@ -185 +185 @@
       REAL(wp), DIMENSION(jpi,jpj) :: ztmp0, ztmp1, ztmp2
       !
-      REAL(wp), DIMENSION(:,:), ALLOCATABLE :: &
-         &              zeta_t,   &  ! stability parameter at height zt
-         &                zsst,   &  ! to back up the initial bulk SST
-         &                pdTc,   &  ! SST increment "dT" for cool-skin correction           [K]
-         &                pdTw,   &  ! SST increment "dT" for warm layer correction          [K]
-         &                zHwl       ! depth of warm-layer [m]
+      REAL(wp), DIMENSION(:,:), ALLOCATABLE :: zeta_t  ! stability parameter at height zt
+      REAL(wp), DIMENSION(:,:), ALLOCATABLE :: zsst    ! to back up the initial bulk SST
+      !
       CHARACTER(len=40), PARAMETER :: crtnm = 'turb_coare3p0@sbcblk_algo_coare3p0'
       !!----------------------------------------------------------------------------------
-      IF ( kt == nit000 ) CALL COARE3P0_INIT(l_use_cs, l_use_wl)
+      IF ( kt == nit000 ) CALL SBCBLK_ALGO_COARE3P0_INIT(l_use_cs, l_use_wl)
 
       l_zt_equal_zu = .FALSE.