Changeset 16 for trunk/NEMO/OPA_SRC/FLO/flo4rk.F90

Timestamp:

2004-02-17T09:06:15+01:00 (20 years ago)

Author:

opalod

Message:

CT : UPDATE001 : First major NEMO update

File:

• trunk/NEMO/OPA_SRC/FLO/flo4rk.F90 (modified) (2 diffs)

trunk/NEMO/OPA_SRC/FLO/flo4rk.F90

@@ -15 +15 @@
    USE oce             ! ocean dynamics and tracers
    USE dom_oce         ! ocean space and time domain
+   USE in_out_manager  ! I/O manager
 
    IMPLICIT NONE
@@ -24 +25 @@
    !! * Module variables
    REAL(wp), DIMENSION (4) ::   &   ! RK4 and Lagrange interpolation
-      tcoef1 = /  1.0  ,  0.5  ,  0.5  ,  0.0  / ,  &  ! coeffients  for 
-      tcoef2 = /  0.0  ,  0.5  ,  0.5  ,  1.0  / ,  &  ! lagrangian interp.
-      scoef2 = /  1.0  ,  2.0  ,  2.0  ,  1.0  / ,  &  ! RK4 coefficients
-      rcoef  = /-1./6. , 1./2. ,-1./2. , 1./6. /       ! ???
+      tcoef1 = (/  1.0  ,  0.5  ,  0.5  ,  0.0  /) ,  &  ! coeffients  for 
+      tcoef2 = (/  0.0  ,  0.5  ,  0.5  ,  1.0  /) ,  &  ! lagrangian interp.
+      scoef2 = (/  1.0  ,  2.0  ,  2.0  ,  1.0  /) ,  &  ! RK4 coefficients
+      rcoef  = (/-1./6. , 1./2. ,-1./2. , 1./6. /)       ! ???
    REAL(wp), DIMENSION (3) ::   &
-      scoef1 = / .5, .5, 1. /       ! compute position with interpolated
+      scoef1 = (/ .5, .5, 1. /)       ! compute position with interpolated
    !!----------------------------------------------------------------------
    !!   OPA 9.0 , LODYC-IPSL  (2003)