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 7657 for branches/UKMO/dev_r5518_pcbias_ipc/NEMOGCM/NEMO/OPA_SRC/DYN/dynhpg.F90 – NEMO

Ignore:
Timestamp:
2017-02-08T16:04:04+01:00 (6 years ago)
Author:
isabella
Message:

adding more output messages

File:
1 edited

Legend:

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

    r7652 r7657  
    100100      IF ( ln_bias .AND. ln_bias_pc_app ) THEN 
    101101         IF(lwp) THEN  
    102          WRITE(numout,*) " ! store orig density, use pressure corrected density" 
     102         WRITE(numout,*) " ! store orig density, use pressure corrected density using gru_pc and grv_pc" 
    103103         ENDIF 
    104104         z_rhd_st(:,:,:) = rhd(:,:,:)     ! store orig density  
     
    111111      ! 
    112112      SELECT CASE ( nhpg )      ! Hydrostatic pressure gradient computation 
     113         IF(lwp) THEN  
     114         WRITE(numout,*) " computing pressure gradient with nhpg = ",nhpg 
     115         ENDIF 
    113116      CASE (  0 )   ;   CALL hpg_zco    ( kt )      ! z-coordinate 
    114117      CASE (  1 )   ;   CALL hpg_zps    ( kt )      ! z-coordinate plus partial steps (interpolation) 
Note: See TracChangeset for help on using the changeset viewer.