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 1327 for trunk/NEMO/OFF_SRC/DOM/domrea.F90 – NEMO

Ignore:
Timestamp:
2009-02-20T11:11:52+01:00 (15 years ago)
Author:
cetlod
Message:

initialisation of local variable, see ticket:351

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMO/OFF_SRC/DOM/domrea.F90

    r1152 r1327  
    9292  
    9393      REAL(wp), DIMENSION(jpi,jpj) :: & 
    94          zprt = 0. 
     94         zprt 
    9595#if ! defined key_zco 
    9696      INTEGER :: ik 
     
    103103 
    104104 
     105      zprt(:,:) = 0. 
    105106 
    106107      SELECT CASE (nmsh) 
     
    183184 
    184185         CALL iom_get( inum4, jpdom_data, 'mbathy', zprt ) 
    185          mbathy(:,:) = zprt(:,:) * tmask(:,:,1) + 1 
    186  
     186      
     187         DO jj = 1, jpj 
     188            DO ji = 1, jpi 
     189               mbathy(ji,jj) = zprt(ji,jj) * tmask(ji,jj,1) + 1 
     190            ENDDO 
     191         ENDDO 
    187192 
    188193         ! Vertical coordinates and scales factors 
Note: See TracChangeset for help on using the changeset viewer.