Changeset 2804 for branches/2011/dev_r2802_LOCEAN10_agrif_lim/NEMOGCM/NEMO/LIM_SRC_3/limrhg.F90

Timestamp:

2011-07-18T17:05:52+02:00 (13 years ago)

Author:

rblod

Message:

dev_r2802_LOCEAN10_agrif_lim: first implementation see ticket #848

File:

• branches/2011/dev_r2802_LOCEAN10_agrif_lim/NEMOGCM/NEMO/LIM_SRC_3/limrhg.F90 (modified) (7 diffs)

branches/2011/dev_r2802_LOCEAN10_agrif_lim/NEMOGCM/NEMO/LIM_SRC_3/limrhg.F90

@@ -34 +34 @@
    USE dom_ice_2        ! LIM2: ice domain
 #endif
+#if defined key_agrif && defined key_lim2
+   USE agrif_lim2_interp
+#endif
 
    IMPLICIT NONE
@@ -92 +95 @@
          &      zdd(jpi,jpj) , zdt   (jpi,jpj) , zds   (jpi,jpj) ,                     &
          &      zs1(jpi,jpj) , zs2   (jpi,jpj) , zs12  (jpi,jpj) , zresr(jpi,jpj), STAT=ierr(2) )
-         !
+        !
       lim_rhg_alloc = MAXVAL(ierr)
       !
@@ -506 +509 @@
 
             CALL lbc_lnk( u_ice(:,:), 'U', -1. )
-
+#if defined key_agrif
+           CALL agrif_dyn_lim(jter ,nevp , 'U')
+#endif
 !CDIR NOVERRCHK
             DO jj = k_j1+1, k_jpj-1
@@ -531 +536 @@
 
             CALL lbc_lnk( v_ice(:,:), 'V', -1. )
-
+#if defined key_agrif
+           CALL agrif_dyn_lim(jter ,nevp , 'U')
+#endif
          ELSE 
 !CDIR NOVERRCHK
@@ -557 +564 @@
 
             CALL lbc_lnk( v_ice(:,:), 'V', -1. )
-
+#if defined key_agrif
+            CALL agrif_dyn_lim(jter ,nevp , 'V')
+#endif
 !CDIR NOVERRCHK
             DO jj = k_j1+1, k_jpj-1
@@ -585 +594 @@
 
             CALL lbc_lnk( u_ice(:,:), 'U', -1. )
-
+#if defined key_agrif
+            CALL agrif_dyn_lim(jter ,nevp , 'U')
+#endif
          ENDIF
 
@@ -625 +636 @@
       CALL lbc_lnk( u_ice(:,:), 'U', -1. ) 
       CALL lbc_lnk( v_ice(:,:), 'V', -1. ) 
+#if defined key_agrif_lim2
+      CALL agrif_dyn_lim(nevp ,nevp , 'U')
+      CALL agrif_dyn_lim(nevp ,nevp , 'V')
+#endif
 
       DO jj = k_j1+1, k_jpj-1