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.
ocealb.F90 in branches/UKMO/dev_r8183_ICEMODEL_svn_removed/NEMOGCM/NEMO/OPA_SRC/SBC – NEMO

source: branches/UKMO/dev_r8183_ICEMODEL_svn_removed/NEMOGCM/NEMO/OPA_SRC/SBC/ocealb.F90 @ 8752

Last change on this file since 8752 was 8752, checked in by dancopsey, 6 years ago

Merged in main ICEMODEL branch (branches/2017/dev_r8183_ICEMODEL) from revision 8587 to 8726.

File size: 2.3 KB
Line 
1MODULE ocealb
2   !!======================================================================
3   !!                       ***  MODULE  ocealb  ***
4   !! Ocean forcing:  bulk thermohaline forcing of the ocean
5   !!=====================================================================
6   !! History :
7   !!   NEMO     4.0  ! 2017-07  (C. Rousset) Split ocean and ice albedos
8   !!----------------------------------------------------------------------
9   !!   oce_alb    : albedo for ocean (clear and overcast skies)
10   !!----------------------------------------------------------------------
11   USE phycst         ! physical constants
12   USE in_out_manager ! I/O manager
13   USE lib_mpp        ! MPP library
14   USE wrk_nemo       ! work arrays
15   USE lib_fortran    ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined) 
16
17   IMPLICIT NONE
18   PRIVATE
19
20   PUBLIC   oce_alb   ! routine called by sbccpl
21 
22   !!----------------------------------------------------------------------
23   !! NEMO/OPA 4.0 , NEMO Consortium (2010)
24   !! $Id: ocealb.F90 8268 2017-07-03 15:01:04Z clem $
25   !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt)
26   !!----------------------------------------------------------------------
27CONTAINS
28
29   SUBROUTINE oce_alb( palb_os , palb_cs )
30      !!----------------------------------------------------------------------
31      !!               ***  ROUTINE oce_alb  ***
32      !!
33      !! ** Purpose :   Computation of the albedo of the ocean
34      !!----------------------------------------------------------------------
35      REAL(wp), DIMENSION(:,:), INTENT(out) ::   palb_os   !  albedo of ocean under overcast sky
36      REAL(wp), DIMENSION(:,:), INTENT(out) ::   palb_cs   !  albedo of ocean under clear sky
37      !!
38      REAL(wp) ::   zcoef 
39      REAL(wp) ::   rmue = 0.40    !  cosine of local solar altitude
40      !!----------------------------------------------------------------------
41      !
42      zcoef = 0.05 / ( 1.1 * rmue**1.4 + 0.15 )   ! Parameterization of Briegled and Ramanathan, 1982
43      palb_cs(:,:) = zcoef 
44      palb_os(:,:) = 0.06                         ! Parameterization of Kondratyev, 1969 and Payne, 1972
45      !
46   END SUBROUTINE oce_alb
47
48   !!======================================================================
49END MODULE ocealb
Note: See TracBrowser for help on using the repository browser.