- Timestamp:
- 2019-08-22T11:49:08+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/UKMO/dev_r10037_GPU/src/ICE/iceforcing.F90
r10843 r11467 53 53 !! utau_ice, vtau_ice : surface ice stress (U- & V-points) [N/m2] 54 54 !!------------------------------------------------------------------- 55 USE scoce, ONLY : zutau_ice => scr2D1, zvtau_ice => scr2D2 55 56 INTEGER , INTENT(in ) :: kt ! ocean time step 56 57 INTEGER , INTENT(in ) :: ksbc ! type of sbc flux … … 58 59 !! 59 60 INTEGER :: ji, jj ! dummy loop index 60 REAL(wp), DIMENSION(jpi,jpj) :: zutau_ice, zvtau_ice61 61 !!------------------------------------------------------------------- 62 62 ! … … 111 111 !! alb_ice = albedo above sea ice 112 112 !!------------------------------------------------------------------- 113 USE scice, ONLY : zalb_os => scr1i, zalb_cs => scr2i ! ice albedo under overcast/clear sky 114 USE scoce, ONLY : zalb => scr2D1 ! 2D workspace 113 115 INTEGER, INTENT(in) :: kt ! ocean time step 114 116 INTEGER, INTENT(in) :: ksbc ! flux formulation (user defined, bulk or Pure Coupled) 115 117 ! 116 118 INTEGER :: ji, jj, jl ! dummy loop index 117 REAL(wp), DIMENSION(jpi,jpj,jpl) :: zalb_os, zalb_cs ! ice albedo under overcast/clear sky118 REAL(wp), DIMENSION(jpi,jpj) :: zalb ! 2D workspace119 119 !!-------------------------------------------------------------------- 120 120 ! … … 185 185 !! = 2 Redistribute a single flux over categories 186 186 !!------------------------------------------------------------------- 187 USE scoce, ONLY : z1_at_i => scr2D1, & ! inverse of concentration 188 z_qsr_m => scr2D2, & ! Mean solar heat flux over all categories 189 z_qns_m => scr2D3, & ! Mean non solar heat flux over all categories 190 z_evap_m => scr2D4, & ! Mean sublimation over all categories 191 z_dqn_m => scr2D5, & ! Mean d(qns)/dT over all categories 192 z_devap_m=> scr2D6, & ! Mean d(evap)/dT over all categories 193 zalb_m => scr2D7, & ! Mean albedo over all categories 194 ztem_m => scr2D8 ! Mean temperature over all categories 195 187 196 INTEGER , INTENT(in ) :: k_iceflx ! redistributor 188 197 REAL(wp), DIMENSION(:,:,:), INTENT(in ) :: ptn_ice ! ice surface temperature … … 196 205 INTEGER :: jl ! dummy loop index 197 206 ! 198 REAL(wp), DIMENSION(jpi,jpj) :: z1_at_i ! inverse of concentration199 !200 REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: z_qsr_m ! Mean solar heat flux over all categories201 REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: z_qns_m ! Mean non solar heat flux over all categories202 REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: z_evap_m ! Mean sublimation over all categories203 REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: z_dqn_m ! Mean d(qns)/dT over all categories204 REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: z_devap_m ! Mean d(evap)/dT over all categories205 REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: zalb_m ! Mean albedo over all categories206 REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: ztem_m ! Mean temperature over all categories207 207 !!---------------------------------------------------------------------- 208 208 !
Note: See TracChangeset
for help on using the changeset viewer.