Changeset 1884 for branches/TAM_V3_0/NEMO/OPA_SRC/OBC/obcdta.F90

Timestamp:

2010-05-27T11:26:52+02:00 (14 years ago)

Author:

rblod

Message:

Light adaptation of NEMO direct model routine to handle TAM

File:

• branches/TAM_V3_0/NEMO/OPA_SRC/OBC/obcdta.F90 (modified) (6 diffs)

branches/TAM_V3_0/NEMO/OPA_SRC/OBC/obcdta.F90

@@ -63 +63 @@
   LOGICAL, DIMENSION (jpi,jpk ) :: ltnmsk=.TRUE., lunmsk=.TRUE., lvnmsk=.TRUE.  ! checks
   LOGICAL, DIMENSION (jpi,jpk ) :: ltsmsk=.TRUE., lusmsk=.TRUE., lvsmsk=.TRUE.
+
+  LOGICAL :: ln_obc_tangential=.FALSE.
 
   !! * Substitutions
@@ -829 +831 @@
           IF( imois == 0 )   imois = iman
           itimo = imois
+#if defined key_pomme_r025
+       ELSE IF ( ntobc == 14 )   THEN
+          i15   = nday / 16
+          imois = nmonth + i15 - 1
+          itimo = imois + 1 ! shift
+#endif
        ELSE
           IF(lwp) WRITE(numout,*) 'data other than constant or monthly',kt
@@ -1191 +1199 @@
           CALL iom_close ( id_e )
           !
-          CALL iom_open ( cl_obc_eV , id_e )
-          CALL iom_get ( id_e, jpdom_unknown, 'vomecrty', vedta(nje0:nje1,:,nt_x), &
-               &               ktime=ntobc_x , kstart=istart, kcount= icount )
-          CALL iom_close ( id_e )
+
+          IF ( ln_obc_tangential ) THEN
+             CALL iom_open ( cl_obc_eV , id_e )
+             CALL iom_get ( id_e, jpdom_unknown, 'vomecrty', vedta(nje0:nje1,:,nt_x), &
+                  &              ktime=ntobc_x , kstart=istart, kcount= icount )
+             CALL iom_close ( id_e )
+          ENDIF
 
           ! mask the boundary values
@@ -1261 +1272 @@
           CALL iom_close ( id_w )
           !
-          CALL iom_open ( cl_obc_wV , id_w )
-          CALL iom_get ( id_w, jpdom_unknown, 'vomecrty', vwdta(njw0:njw1,:,nt_x), &
-               &               ktime=ntobc_x , kstart=istart, kcount= icount )
-          CALL iom_close ( id_w )
+          IF ( ln_obc_tangential ) THEN
+             CALL iom_open ( cl_obc_wV , id_w )
+             CALL iom_get ( id_w, jpdom_unknown, 'vomecrty', vwdta(njw0:njw1,:,nt_x), &
+                  &               ktime=ntobc_x , kstart=istart, kcount= icount )
+             CALL iom_close ( id_w )
+          ENDIF
 
           ! mask the boundary values
@@ -1322 +1335 @@
           CALL iom_close (id_n)
           !
-          CALL iom_open ( cl_obc_nU , id_n )
-          CALL iom_get  ( id_n, jpdom_unknown, 'vozocrtx', undta(nin0:nin1,:,nt_x), &
-               &               ktime=ntobc_x , kstart=istart, kcount= icount )
-          CALL iom_close ( id_n )
+          IF ( ln_obc_tangential ) THEN
+             CALL iom_open ( cl_obc_nU , id_n )
+             CALL iom_get  ( id_n, jpdom_unknown, 'vozocrtx', undta(nin0:nin1,:,nt_x), &
+                  &               ktime=ntobc_x , kstart=istart, kcount= icount )
+             CALL iom_close ( id_n )
+          ENDIF
           !
           CALL iom_open ( cl_obc_nV , id_n )
@@ -1387 +1402 @@
           CALL iom_close (id_s)
           !
-          CALL iom_open ( cl_obc_sU , id_s )
-          CALL iom_get  ( id_s, jpdom_unknown, 'vozocrtx', usdta(nis0:nis1,:,nt_x), &
-               &               ktime=ntobc_x , kstart=istart, kcount= icount )
-          CALL iom_close ( id_s )
+          IF ( ln_obc_tangential ) THEN
+             CALL iom_open ( cl_obc_sU , id_s )
+             CALL iom_get  ( id_s, jpdom_unknown, 'vozocrtx', usdta(nis0:nis1,:,nt_x), &
+                  &               ktime=ntobc_x , kstart=istart, kcount= icount )
+             CALL iom_close ( id_s )
+          ENDIF
           !
           CALL iom_open ( cl_obc_sV , id_s )