Changeset 11845 for NEMO/branches/2019/dev_r11085_ASINTER-05_Brodeau_Advanced_Bulk/src/OCE/SBC/sbcblk_algo_ecmwf.F90

Timestamp:

2019-11-04T11:11:58+01:00 (4 years ago)

Author:

laurent

Message:

Improving syntax consistency

File:

• NEMO/branches/2019/dev_r11085_ASINTER-05_Brodeau_Advanced_Bulk/src/OCE/SBC/sbcblk_algo_ecmwf.F90 (modified) (3 diffs)

NEMO/branches/2019/dev_r11085_ASINTER-05_Brodeau_Advanced_Bulk/src/OCE/SBC/sbcblk_algo_ecmwf.F90

@@ -414 +414 @@
       REAL(wp) :: zzeta, zx, ztmp, psi_unst, psi_stab, stab
       !!----------------------------------------------------------------------------------
-      !
       DO jj = 1, jpj
          DO ji = 1, jpi
@@ -441 +440 @@
          END DO
       END DO
-      !
    END FUNCTION psi_m_ecmwf
 
@@ -486 +484 @@
          END DO
       END DO
-      !
    END FUNCTION psi_h_ecmwf