Changeset 1221 for trunk/NEMO/C1D_SRC/step_c1d.F90

Timestamp:

2008-10-31T14:48:31+01:00 (15 years ago)

Author:

ctlod

Message:

correct compilation errors when using key_c1d cpp key, see ticket: #274

File:

• trunk/NEMO/C1D_SRC/step_c1d.F90 (modified) (3 diffs)

trunk/NEMO/C1D_SRC/step_c1d.F90

@@ -38 +38 @@
    USE eosbn2          ! equation of state                (eos_bn2 routine)
 
-   USE dyncor1d        ! Coriolis term (c1d case)         (dyn_cor_1d     )
+   USE dyncor_c1d      ! Coriolis term (c1d case)         (dyn_cor_1d     )
    USE dynzdf          ! vertical diffusion               (dyn_zdf routine)
-   USE dynnxt1d        ! time-stepping                    (dyn_nxt routine)
+   USE dynnxt_c1d      ! time-stepping                    (dyn_nxt routine)
+   USE diawri_c1d      ! write outputs                (dia_wri_c1d routine)
 
    USE zdfbfr          ! bottom friction                  (zdf_bfr routine)
@@ -165 +166 @@
                              CALL tra_sbc    ( kstp )        ! surface boundary condition
       IF( ln_traqsr      )   CALL tra_qsr    ( kstp )        ! penetrative solar radiation qsr
-                             CALL tra_adv    ( kstp )        ! horizontal & vertical advection
       IF( lk_zdfkpp )        CALL tra_kpp    ( kstp )        ! KPP non-local tracer fluxes
                              CALL tra_zdf    ( kstp )        ! vertical mixing
@@ -180 +180 @@
                                va(:,:,:) = 0.e0
 
-                               CALL dyn_vor_c1d( kstp )       ! vorticity term including Coriolis
+                               CALL dyn_cor_c1d( kstp )       ! vorticity term including Coriolis
                                CALL dyn_zdf    ( kstp )       ! vertical diffusion
                                CALL dyn_nxt_c1d( kstp )       ! lateral velocity at next time step