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

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

write statement put outside case statement

File:
1 edited

Legend:

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

    r7657 r7658  
    109109         grv(:,:)        = grv_pc(:,:) 
    110110      ENDIF 
    111       ! 
     111 
     112         IF(lwp) WRITE(numout,*) " computing pressure gradient with nhpg = ",nhpg 
    112113      SELECT CASE ( nhpg )      ! Hydrostatic pressure gradient computation 
    113          IF(lwp) THEN  
    114          WRITE(numout,*) " computing pressure gradient with nhpg = ",nhpg 
    115          ENDIF 
    116114      CASE (  0 )   ;   CALL hpg_zco    ( kt )      ! z-coordinate 
    117115      CASE (  1 )   ;   CALL hpg_zps    ( kt )      ! z-coordinate plus partial steps (interpolation) 
Note: See TracChangeset for help on using the changeset viewer.