Ignore:
Timestamp:
2019-11-25T23:31:07+01:00 (10 months ago)
Author:
laurent
Message:

Syntax improvements and minor bug fixes…

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2019/dev_r11085_ASINTER-05_Brodeau_Advanced_Bulk/src/OCE/SBC/sbcblk_algo_coare3p6.F90

    r11851 r11962  
    4343   PRIVATE 
    4444 
    45    PUBLIC :: COARE3P6_INIT, TURB_COARE3P6 
     45   PUBLIC :: SBCBLK_ALGO_COARE3P6_INIT, TURB_COARE3P6 
    4646 
    4747   !! COARE own values for given constants: 
     
    5555 
    5656 
    57    SUBROUTINE coare3p6_init(l_use_cs, l_use_wl) 
     57   SUBROUTINE sbcblk_algo_coare3p6_init(l_use_cs, l_use_wl) 
    5858      !!--------------------------------------------------------------------- 
    59       !!                  ***  FUNCTION coare3p6_init  *** 
     59      !!                  ***  FUNCTION sbcblk_algo_coare3p6_init  *** 
    6060      !! 
    6161      !! INPUT : 
     
    7171         ierr = 0 
    7272         ALLOCATE ( Tau_ac(jpi,jpj) , Qnt_ac(jpi,jpj), dT_wl(jpi,jpj), Hz_wl(jpi,jpj), STAT=ierr ) 
    73          IF( ierr > 0 ) CALL ctl_stop( ' COARE3P6_INIT => allocation of Tau_ac, Qnt_ac, dT_wl & Hz_wl failed!' ) 
     73         IF( ierr > 0 ) CALL ctl_stop( ' SBCBLK_ALGO_COARE3P6_INIT => allocation of Tau_ac, Qnt_ac, dT_wl & Hz_wl failed!' ) 
    7474         Tau_ac(:,:) = 0._wp 
    7575         Qnt_ac(:,:) = 0._wp 
     
    8080         ierr = 0 
    8181         ALLOCATE ( dT_cs(jpi,jpj), STAT=ierr ) 
    82          IF( ierr > 0 ) CALL ctl_stop( ' COARE3P6_INIT => allocation of dT_cs failed!' ) 
     82         IF( ierr > 0 ) CALL ctl_stop( ' SBCBLK_ALGO_COARE3P6_INIT => allocation of dT_cs failed!' ) 
    8383         dT_cs(:,:) = -0.25_wp  ! First guess of skin correction 
    8484      END IF 
    85    END SUBROUTINE coare3p6_init 
     85   END SUBROUTINE sbcblk_algo_coare3p6_init 
    8686 
    8787 
     
    185185      REAL(wp), DIMENSION(jpi,jpj) :: ztmp0, ztmp1, ztmp2 
    186186      ! 
    187       REAL(wp), DIMENSION(:,:), ALLOCATABLE :: & 
    188          &              zeta_t,   &  ! stability parameter at height zt 
    189          &                zsst,   &  ! to back up the initial bulk SST 
    190          &                pdTc,   &  ! SST increment "dT" for cool-skin correction           [K] 
    191          &                pdTw,   &  ! SST increment "dT" for warm layer correction          [K] 
    192          &                zHwl       ! depth of warm-layer [m] 
     187      REAL(wp), DIMENSION(:,:), ALLOCATABLE :: zeta_t  ! stability parameter at height zt 
     188      REAL(wp), DIMENSION(:,:), ALLOCATABLE :: zsst    ! to back up the initial bulk SST 
     189      ! 
    193190      CHARACTER(len=40), PARAMETER :: crtnm = 'turb_coare3p6@sbcblk_algo_coare3p6' 
    194191      !!---------------------------------------------------------------------------------- 
    195       IF ( kt == nit000 ) CALL COARE3P6_INIT(l_use_cs, l_use_wl) 
     192      IF ( kt == nit000 ) CALL SBCBLK_ALGO_COARE3P6_INIT(l_use_cs, l_use_wl) 
    196193 
    197194      l_zt_equal_zu = .FALSE. 
Note: See TracChangeset for help on using the changeset viewer.