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 11467 for NEMO/branches/UKMO/dev_r10037_GPU/src/ICE/iceforcing.F90 – NEMO

Ignore:
Timestamp:
2019-08-22T11:49:08+02:00 (5 years ago)
Author:
andmirek
Message:

Ticket #2197 allocate arrays at the beggining of the run

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/UKMO/dev_r10037_GPU/src/ICE/iceforcing.F90

    r10843 r11467  
    5353      !!              utau_ice, vtau_ice : surface ice stress (U- & V-points) [N/m2] 
    5454      !!------------------------------------------------------------------- 
     55      USE scoce, ONLY : zutau_ice => scr2D1, zvtau_ice => scr2D2 
    5556      INTEGER                     , INTENT(in   ) ::   kt                   ! ocean time step 
    5657      INTEGER                     , INTENT(in   ) ::   ksbc                 ! type of sbc flux 
     
    5859      !! 
    5960      INTEGER  ::   ji, jj                 ! dummy loop index 
    60       REAL(wp), DIMENSION(jpi,jpj) ::   zutau_ice, zvtau_ice  
    6161      !!------------------------------------------------------------------- 
    6262      ! 
     
    111111      !!                alb_ice                                  = albedo above sea ice 
    112112      !!------------------------------------------------------------------- 
     113      USE scice, ONLY : zalb_os => scr1i, zalb_cs => scr2i     ! ice albedo under overcast/clear sky 
     114      USE scoce, ONLY : zalb => scr2D1                         ! 2D workspace 
    113115      INTEGER, INTENT(in) ::   kt     ! ocean time step 
    114116      INTEGER, INTENT(in) ::   ksbc   ! flux formulation (user defined, bulk or Pure Coupled) 
    115117      ! 
    116118      INTEGER  ::   ji, jj, jl                                ! dummy loop index 
    117       REAL(wp), DIMENSION(jpi,jpj,jpl) ::   zalb_os, zalb_cs  ! ice albedo under overcast/clear sky 
    118       REAL(wp), DIMENSION(jpi,jpj)     ::   zalb              ! 2D workspace 
    119119      !!-------------------------------------------------------------------- 
    120120      ! 
     
    185185      !!                =  2  Redistribute a single flux over categories 
    186186      !!------------------------------------------------------------------- 
     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 
    187196      INTEGER                   , INTENT(in   ) ::   k_iceflx   ! redistributor 
    188197      REAL(wp), DIMENSION(:,:,:), INTENT(in   ) ::   ptn_ice    ! ice surface temperature 
     
    196205      INTEGER  ::   jl      ! dummy loop index 
    197206      ! 
    198       REAL(wp), DIMENSION(jpi,jpj) ::   z1_at_i   ! inverse of concentration 
    199       ! 
    200       REAL(wp), ALLOCATABLE, DIMENSION(:,:) ::   z_qsr_m   ! Mean solar heat flux over all categories 
    201       REAL(wp), ALLOCATABLE, DIMENSION(:,:) ::   z_qns_m   ! Mean non solar heat flux over all categories 
    202       REAL(wp), ALLOCATABLE, DIMENSION(:,:) ::   z_evap_m  ! Mean sublimation over all categories 
    203       REAL(wp), ALLOCATABLE, DIMENSION(:,:) ::   z_dqn_m   ! Mean d(qns)/dT over all categories 
    204       REAL(wp), ALLOCATABLE, DIMENSION(:,:) ::   z_devap_m ! Mean d(evap)/dT over all categories 
    205       REAL(wp), ALLOCATABLE, DIMENSION(:,:) ::   zalb_m    ! Mean albedo over all categories 
    206       REAL(wp), ALLOCATABLE, DIMENSION(:,:) ::   ztem_m    ! Mean temperature over all categories 
    207207      !!---------------------------------------------------------------------- 
    208208      ! 
Note: See TracChangeset for help on using the changeset viewer.