Changeset 389 for trunk/NEMO/OPA_SRC/DIA/diafwb.F90

Timestamp:

2006-03-09T18:22:04+01:00 (18 years ago)

Author:

opalod

Message:

RB:nemo_v1_update_038: first integration of Agrif :

• configuration parameters are just integer when agrif is used
• add call to agrif routines with key_agrif

File:

• trunk/NEMO/OPA_SRC/DIA/diafwb.F90 (modified) (8 diffs)

trunk/NEMO/OPA_SRC/DIA/diafwb.F90

@@ -202 +202 @@
          END SELECT
          ! 
-      ENDIF
+      
       DO jk = 1, 18 
          zt = 0.5 * ( tn(ji,jj,jk) + tn(ji+1,jj,jk) )
@@ -218 +218 @@
          ENDIF
       END DO
+      ENDIF
       
       ! Mean flow at Cadiz
@@ -242 +243 @@
          END SELECT
          ! 
-      ENDIF
+      
       DO jk = 1, 23 
          zt = 0.5 * ( tn(ji,jj,jk) + tn(ji+1,jj,jk) )
@@ -258 +259 @@
          ENDIF
       END DO
+      ENDIF
 
       ! Mean flow at Red Sea entrance
@@ -282 +284 @@
          END SELECT
          ! 
-      ENDIF
+      
       DO jk = 1, 15 
          zt = 0.5 * ( tn(ji,jj,jk) + tn(ji+1,jj,jk) )
@@ -298 +300 @@
          ENDIF
       END DO
+      ENDIF
 
       ! Mean flow at Baltic Sea entrance
@@ -322 +325 @@
          END SELECT
          ! 
-      ENDIF
+      
       DO jk = 1, 20
          zt = 0.5 * ( tn(ji,jj,jk) + tn(ji+1,jj,jk) )
@@ -338 +341 @@
          ENDIF
       END DO
+      ENDIF
 
       ! Sum at each time-step