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 4704 for branches/2014/dev_r4650_UKMO2_ice_shelves/NEMOGCM/NEMO/OPA_SRC/DIA/diahsb.F90 – NEMO

Ignore:
Timestamp:
2014-07-03T18:47:30+02:00 (10 years ago)
Author:
mathiot
Message:

Ice Shelf: correction of minor bugs if running without ice shelf

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2014/dev_r4650_UKMO2_ice_shelves/NEMOGCM/NEMO/OPA_SRC/DIA/diahsb.F90

    r4666 r4704  
    259259      IF(lwp) WRITE(numout,*) "dia_hsb: heat salt volume budgets activated" 
    260260      IF(lwp) WRITE(numout,*) '~~~~~~~' 
    261       surf(:,:) = e1t(:,:) * e2t(:,:) * tmask(:,:,1) * tmask_i(:,:)      ! masked surface grid cell area 
     261      surf(:,:) = e1t(:,:) * e2t(:,:) * tmask_i(:,:)      ! masked surface grid cell area 
    262262      surf_tot  = glob_sum( surf(:,:) )                                       ! total ocean surface area 
    263263 
Note: See TracChangeset for help on using the changeset viewer.