Changeset 10871


Ignore:
Timestamp:
2019-04-15T13:47:30+02:00 (19 months ago)
Author:
frrh
Message:

Missing ENDIF, correct logical var name for 3.6 compatibility not 4.0

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5518_GO6_fix_diaar5/NEMOGCM/NEMO/OPA_SRC/DIA/diaar5.F90

    r10870 r10871  
    208208      ! work is not being done against stratification 
    209209          zpe(:,:) = 0._wp 
    210           IF( ln_zdfddm ) THEN 
     210          IF( lk_zdfddm ) THEN 
    211211             DO jk = 2, jpk 
    212212                DO jj = 1, jpj 
     
    225225                                               - avs(ji,jj,jk) * zbw * (tsn(ji,jj,jk-1,jp_sal) - tsn(ji,jj,jk,jp_sal) ) ) 
    226226 
     227                      ENDIF 
    227228                   ENDDO 
    228229                ENDDO 
Note: See TracChangeset for help on using the changeset viewer.