Changeset 7885


Ignore:
Timestamp:
2017-04-10T15:35:02+02:00 (3 years ago)
Author:
glong
Message:

Fixing error in dynzdf_imp.F90

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/GO6_dyn_vrt_diag/NEMOGCM/NEMO/OPA_SRC/DYN/dynzdf_imp.F90

    r7884 r7885  
    263263 
    264264      ! Normalization to obtain the general momentum trend ua 
    265       IF ( ( .NOT. lk_dynspg_ts ) .OR.  
    266               ( ( id_dia_vrt_zdf_int == 1 ) .OR. ( id_dia_vrt_zdf_mean == 1 ) ) ) THEN 
     265      IF ( ( .NOT. lk_dynspg_ts ) .OR.            & 
     266           &    ( ( id_dia_vrt_zdf_int == 1 ) .OR. ( id_dia_vrt_zdf_mean == 1 ) ) ) THEN 
    267267          DO jk = 1, jpkm1 
    268268             DO jj = 2, jpjm1    
     
    368368 
    369369      ! Normalization to obtain the general momentum trend va 
    370       IF ( ( .NOT lk_dynspg_ts ) .OR. 
    371            ( ( id_dia_vrt_zdf_int == 1 ) .OR. ( id_dia_vrt_zdf_mean == 1 ) ) ) THEN 
     370      IF ( ( .NOT. lk_dynspg_ts ) .OR.            & 
     371           &    ( ( id_dia_vrt_zdf_int == 1 ) .OR. ( id_dia_vrt_zdf_mean == 1 ) ) ) THEN 
    372372          DO jk = 1, jpkm1 
    373373             DO jj = 2, jpjm1    
     
    380380              CALL dyn_vrt_dia_3d(zua, zva, id_dia_vrt_zdf_int, id_dia_vrt_zdf_mean) 
    381381          END IF 
    382           IF ( .NOT lk_dynspg_ts ) THEN 
     382          IF ( .NOT. lk_dynspg_ts ) THEN 
    383383             va(:,:,:) = zva(:,:,:) 
    384384          END IF 
Note: See TracChangeset for help on using the changeset viewer.