Ignore:
Timestamp:
2017-08-18T18:16:42+02:00 (3 years ago)
Author:
anaguiar
Message:

Merging with the dev_r5518_pcbias_ipc@8446 branch

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/OPA_SRC/DYN/dynhpg.F90

    r8400 r8447  
    113113 
    114114      ENDIF 
    115       ! 
     115 
    116116      SELECT CASE ( nhpg )      ! Hydrostatic pressure gradient computation 
    117117      CASE (  0 )   ;   CALL hpg_zco    ( kt )      ! z-coordinate 
     
    134134      ! 
    135135      IF ( ln_bias .AND. ln_bias_pc_app )  THEN 
     136         IF(lwp) THEN  
     137         WRITE(numout,*) " ! restore original density" 
     138         ENDIF 
    136139         rhd(:,:,:) = z_rhd_st(:,:,:)     ! restore original density 
    137140         gru(:,:)   = z_gru_st(:,:) 
Note: See TracChangeset for help on using the changeset viewer.