Changeset 392 for trunk/NEMO/OPA_SRC/DYN/dynspg_flt.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/DYN/dynspg_flt.F90 (modified) (3 diffs)

trunk/NEMO/OPA_SRC/DYN/dynspg_flt.F90

@@ -171 +171 @@
       CALL obc_vol( kt )
 #endif
-#if defined key_AGRIF
+#if defined key_agrif
       ! Update velocities on each coarse/fine interfaces
 
@@ -239 +239 @@
       IF( nsolv == 4 )   CALL lbc_lnk_e( gcb, c_solver_pt, 1. )   
 
-#if defined key_AGRIF
+#if defined key_agrif
 
        If (.NOT.AGRIF_ROOT()) THEN
@@ -315 +315 @@
       END DO
 
-#if defined key_AGRIF      
+#if defined key_agrif      
       IF (.NOT. Agrif_Root()) THEN
       ! caution : grad D (fine) = grad D (coarse) at coarse/fine interface