Changeset 899 for trunk/NEMO/OPA_SRC/opa.F90

Timestamp:

2008-04-22T18:15:19+02:00 (16 years ago)

Author:

rblod

Message:

First set of modifications related to 1D update : cometic changes, see ticket #117

File:

• trunk/NEMO/OPA_SRC/opa.F90 (modified) (3 diffs)

trunk/NEMO/OPA_SRC/opa.F90

@@ -124 +124 @@
       IF( lk_mpp )   CALL mpp_max(nstop)
 
-      IF( lk_cfg_1d ) THEN 
+      IF( lk_c1d ) THEN 
          istp = nit000
          DO WHILE ( istp <= nitend .AND. nstop == 0 )
@@ -269 +269 @@
       IF( ln_ctl )      CALL prt_ctl_init   ! Print control
 
-      IF( lk_cfg_1d )   CALL fcorio_1d      ! redefine Coriolis at T-point
+      IF( lk_c1d )      CALL fcorio_1d      ! redefine Coriolis at T-point
 
       IF( lk_obc    )   CALL obc_init       ! Open boundaries 
@@ -310 +310 @@
       IF(lwp) WRITE(numout,cform_aaa)       ! Flag AAAAAAA
 
-      IF( lk_cfg_1d  )  THEN 
+      IF( lk_c1d  )  THEN 
          CALL init_1d
       ENDIF