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

Timestamp:

2017-02-06T17:14:30+01:00 (8 years ago)

Author:

isabella

Message:

adding output messages to understand what model does

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

@@ -99 +99 @@
       !
       IF ( ln_bias .AND. ln_bias_pc_app ) THEN
+         IF(lwp) THEN 
+         WRITE(numout,*) " ! store orig density, use pressure corrected density"
+         ENDIF
          z_rhd_st(:,:,:) = rhd(:,:,:)     ! store orig density 
          rhd(:,:,:)      = rhd_pc(:,:,:)  ! use pressure corrected density
@@ -127 +130 @@
       !
       IF ( ln_bias .AND. ln_bias_pc_app )  THEN
+         IF(lwp) THEN 
+         WRITE(numout,*) " ! restore original density"
+         ENDIF
          rhd(:,:,:) = z_rhd_st(:,:,:)     ! restore original density
          gru(:,:)   = z_gru_st(:,:)