Changeset 41 for trunk/NEMO/OPA_SRC/SOL

Timestamp:

2004-02-19T08:55:51+01:00 (20 years ago)

Author:

opalod

Message:

CT : BUGFIX019 : Running problem in the testing phase in free surface and autotasking

File:

• trunk/NEMO/OPA_SRC/SOL/solver.F90 (modified) (1 diff)

trunk/NEMO/OPA_SRC/SOL/solver.F90

@@ -121 +121 @@
       ENDIF
 
-      IF( lk_dynspg_fsc .OR. lk_dynspg_fsc_atsk ) THEN
+      IF( lk_dynspg_fsc .OR. lk_dynspg_fsc_tsk ) THEN
          IF(lwp) WRITE(numout,*)
          IF(lwp) WRITE(numout,*) '          *** free surface formulation'