Ignore:
Timestamp:
2014-06-27T10:49:47+02:00 (7 years ago)
Author:
cbricaud
Message:

initialize sshbb_e and sshb_e in dynspg_ts.F90

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg_ts.F90

    r4687 r4697  
    11341134      ENDIF 
    11351135      ! 
     1136      IF( kt==nit000 .AND. .NOT. ln_rstart )THEN 
     1137         sshbb_e(:,:) = 0._wp 
     1138         sshb_e(:,:)  = 0._wp 
     1139      ENDIF 
     1140      ! 
    11361141      CALL wrk_dealloc( jpi, jpj, zcu ) 
    11371142      ! 
Note: See TracChangeset for help on using the changeset viewer.