Changeset 392 for trunk/NEMO/OPA_SRC/step.F90

Timestamp:

2006-03-10T11:55:45+01:00 (18 years ago)

Author:

opalod

Message:

RB:nemo_v1_update_038: first integration of Agrif :

• add agrif to dynspg_flt_jki.F90
• cosmetic change of key_AGRIF in key_agrif

File:

• trunk/NEMO/OPA_SRC/step.F90 (modified) (6 diffs)

trunk/NEMO/OPA_SRC/step.F90

@@ -118 +118 @@
    USE prtctl          ! Print control                    (prt_ctl routine)
 
-#if defined key_AGRIF
+#if defined key_agrif
    USE agrif_opa_sponge ! Momemtum and tracers sponges
 #endif
@@ -140 +140 @@
 
    SUBROUTINE stp( &
-#if !defined key_AGRIF
+#if !defined key_agrif
    kstp &
 #endif   
@@ -175 +175 @@
       !! * Arguments
       INTEGER &
-#if !defined key_AGRIF   
+#if !defined key_agrif   
       , INTENT( in ) &
 #endif      
@@ -184 +184 @@
       !! ---------------------------------------------------------------------
 
-#if defined key_AGRIF
+#if defined key_agrif
       kstp = nit000 + Agrif_Nb_Step()
       IF ( Agrif_Root() .and. lwp) Write(*,*) '---'
@@ -336 +336 @@
       IF( l_traldf_iso_zps )   CALL tra_ldf_iso_zps( kstp )           ! partial step iso-neutral/geopot. laplacian
 
-#if defined key_AGRIF
+#if defined key_agrif
       IF (.NOT. Agrif_Root())  CALL Agrif_Sponge_tra( kstp )          ! tracers sponge
 #endif
@@ -386 +386 @@
       IF( l_dynldf_iso     )   CALL dyn_ldf_iso    ( kstp )          ! iso-neutral laplacian 
 
-#if defined key_AGRIF
+#if defined key_agrif
       IF (.NOT. Agrif_Root())  CALL Agrif_Sponge_dyn( kstp )         ! momemtum sponge
 #endif