Changeset 11791


Ignore:
Timestamp:
2019-10-25T10:35:15+02:00 (10 months ago)
Author:
jchanut
Message:

#2222, scalar not initialized outside of conditional statement

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2019/dev_r11233_AGRIF-05_jchanut_vert_coord_interp/src/NST/agrif_oce_update.F90

    r11760 r11791  
    512512               IF (N_in * N_out > 0) THEN 
    513513                  h_diff = sum(h_out(1:N_out))-sum(h_in(1:N_in)) 
     514                  excess  = 0._wp 
    514515                  IF (h_diff < -1.e-4) THEN 
    515516!Even if bathy at T points match it's possible for the U points to be deeper in the child grid.  
    516517!In this case we need to move transport from the child grid cells below bed of parent grid into the bottom cell. 
    517                      excess = 0._wp 
    518518                     DO jk=N_in,1,-1 
    519519                        thick = MIN(-1*h_diff, h_in(jk)) 
     
    708708               IF (N_in * N_out > 0) THEN 
    709709                  h_diff = sum(h_out(1:N_out))-sum(h_in(1:N_in)) 
     710                  excess = 0._wp 
    710711                  IF (h_diff < -1.e-4) then 
    711712!Even if bathy at T points match it's possible for the V points to be deeper in the child grid.  
    712713!In this case we need to move transport from the child grid cells below bed of parent grid into the bottom cell. 
    713                      excess = 0._wp 
    714714                     DO jk=N_in,1,-1 
    715715                        thick = MIN(-1*h_diff, h_in(jk)) 
Note: See TracChangeset for help on using the changeset viewer.