Changeset 7657 for branches/UKMO/dev_r5518_pcbias_ipc/NEMOGCM/NEMO/OPA_SRC/DYN/dynhpg.F90

Timestamp:

2017-02-08T16:04:04+01:00 (7 years ago)

Author:

isabella

Message:

adding more output messages

File:

• branches/UKMO/dev_r5518_pcbias_ipc/NEMOGCM/NEMO/OPA_SRC/DYN/dynhpg.F90 (modified) (2 diffs)

branches/UKMO/dev_r5518_pcbias_ipc/NEMOGCM/NEMO/OPA_SRC/DYN/dynhpg.F90

@@ -100 +100 @@
       IF ( ln_bias .AND. ln_bias_pc_app ) THEN
          IF(lwp) THEN 
-         WRITE(numout,*) " ! store orig density, use pressure corrected density"
+         WRITE(numout,*) " ! store orig density, use pressure corrected density using gru_pc and grv_pc"
          ENDIF
          z_rhd_st(:,:,:) = rhd(:,:,:)     ! store orig density 
@@ -111 +111 @@
       !
       SELECT CASE ( nhpg )      ! Hydrostatic pressure gradient computation
+         IF(lwp) THEN 
+         WRITE(numout,*) " computing pressure gradient with nhpg = ",nhpg
+         ENDIF
       CASE (  0 )   ;   CALL hpg_zco    ( kt )      ! z-coordinate
       CASE (  1 )   ;   CALL hpg_zps    ( kt )      ! z-coordinate plus partial steps (interpolation)