Changeset 4836 for branches/2012


Ignore:
Timestamp:
2014-11-06T16:40:17+01:00 (7 years ago)
Author:
flavoni
Message:

add initialization of qsr_hc array, see ticket #1407

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2012/dev_v3_4_STABLE_2012/NEMOGCM/NEMO/OPA_SRC/TRA/traqsr.F90

    r3294 r4836  
    126126      IF( kt == nit000 ) THEN                     ! Set the forcing field at nit000 - 1 
    127127         !                                        ! ----------------------------------- 
     128         qsr_hc(:,:,:) = 0.e0 
     129         ! 
    128130         IF( ln_rstart .AND.    &                    ! Restart: read in restart file 
    129131              & iom_varid( numror, 'qsr_hc_b', ldstop = .FALSE. ) > 0 ) THEN 
Note: See TracChangeset for help on using the changeset viewer.