Ignore:
Timestamp:
2019-11-04T11:11:58+01:00 (12 months ago)
Author:
laurent
Message:

Improving syntax consistency

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2019/dev_r11085_ASINTER-05_Brodeau_Advanced_Bulk/src/OCE/SBC/sbcblk_algo_ecmwf.F90

    r11816 r11845  
    414414      REAL(wp) :: zzeta, zx, ztmp, psi_unst, psi_stab, stab 
    415415      !!---------------------------------------------------------------------------------- 
    416       ! 
    417416      DO jj = 1, jpj 
    418417         DO ji = 1, jpi 
     
    441440         END DO 
    442441      END DO 
    443       ! 
    444442   END FUNCTION psi_m_ecmwf 
    445443 
     
    486484         END DO 
    487485      END DO 
    488       ! 
    489486   END FUNCTION psi_h_ecmwf 
    490487 
Note: See TracChangeset for help on using the changeset viewer.