Changeset 144 for trunk/NEMO/OPA_SRC/LDF

Timestamp:

2004-10-19T15:29:08+02:00 (20 years ago)

Author:

opalod

Message:

CL + CT: BUGFIX089: Syntax correction

File:

• trunk/NEMO/OPA_SRC/LDF/ldftra_c1d.h90 (modified) (2 diffs)

trunk/NEMO/OPA_SRC/LDF/ldftra_c1d.h90

@@ -41 +41 @@
          IF(lwp) WRITE(numout,*)
          IF(lwp) WRITE(numout,*) ' inildf : 1D eddy diffusivity and eddy induced velocity coefficients'
-         IF(lwp) WRITE(numout,*) ' ~~~~~~   -- 
+         IF(lwp) WRITE(numout,*) ' ~~~~~~   -- ' 
          IF(lwp) WRITE(numout,*)
       ELSE
@@ -77 +77 @@
          WRITE(numout,*) '         aht profile at T-level : '
          WRITE(numout,*)
-         WRITE(numout,*) ' level    aht          depth t-level ' )
+         WRITE(numout,*) ' level    aht          depth t-level '
          DO jk = 1, jpk
             WRITE(numout,'(i6,2f12.4)') jk, ahtt(jk), fsdept(1,1,jk)