Changeset 7658

Timestamp:

2017-02-08T16:18:01+01:00 (8 years ago)

Author:

isabella

Message:

write statement put outside case statement

File:

• branches/UKMO/dev_r5518_pcbias_ipc/NEMOGCM/NEMO/OPA_SRC/DYN/dynhpg.F90 (modified) (1 diff)

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

@@ -109 +109 @@
          grv(:,:)        = grv_pc(:,:)
       ENDIF
-      !
+
+         IF(lwp) WRITE(numout,*) " computing pressure gradient with nhpg = ",nhpg
       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)