Changeset 10166 for NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/tests/BENCH/MY_SRC/diawri.F90

Timestamp:

2018-10-03T11:25:38+02:00 (6 years ago)

Author:

smasson

Message:

dev_r10164_HPC09_ESIWACE_PREP_MERGE: action 1: add BENCh test case, see #2133

Location:

NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/tests/BENCH

Files:

• . (copied) (copied from NEMO/branches/2018/dev_r9759_HPC09_ESIWACE/tests/BENCH)
• MY_SRC/diawri.F90 (modified) (10 diffs)

NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/tests/BENCH/MY_SRC/diawri.F90

@@ -125 +125 @@
       ! Output of initial vertical scale factor
       CALL iom_put("e3t_0", e3t_0(:,:,:) )
-      CALL iom_put("e3u_0", e3t_0(:,:,:) )
-      CALL iom_put("e3v_0", e3t_0(:,:,:) )
+      CALL iom_put("e3u_0", e3u_0(:,:,:) )
+      CALL iom_put("e3v_0", e3v_0(:,:,:) )
       !
       CALL iom_put( "e3t" , e3t_n(:,:,:) )
@@ -181 +181 @@
             END DO
          END DO
-         CALL lbc_lnk( "diawri",z2d, 'T', 1. )
+         CALL lbc_lnk( z2d, 'T', 1. )
          CALL iom_put( "taubot", z2d )           
       ENDIF
@@ -237 +237 @@
             END DO
          END DO
-         CALL lbc_lnk( "diawri",z2d, 'T', 1. )
+         CALL lbc_lnk( z2d, 'T', 1. )
          CALL iom_put( "sstgrad2",  z2d )          ! square of module of sst gradient
          z2d(:,:) = SQRT( z2d(:,:) )
@@ -281 +281 @@
             END DO
          END DO
-         CALL lbc_lnk( "diawri",z3d, 'T', 1. )
+         CALL lbc_lnk( z3d, 'T', 1. )
          CALL iom_put( "eken", z3d )                 ! kinetic energy
       ENDIF
@@ -307 +307 @@
             END DO
          END DO
-         CALL lbc_lnk( "diawri",z2d, 'U', -1. )
+         CALL lbc_lnk( z2d, 'U', -1. )
          CALL iom_put( "u_heattr", 0.5*rcp * z2d )    ! heat transport in i-direction
       ENDIF
@@ -320 +320 @@
             END DO
          END DO
-         CALL lbc_lnk( "diawri",z2d, 'U', -1. )
+         CALL lbc_lnk( z2d, 'U', -1. )
          CALL iom_put( "u_salttr", 0.5 * z2d )        ! heat transport in i-direction
       ENDIF
@@ -342 +342 @@
             END DO
          END DO
-         CALL lbc_lnk( "diawri",z2d, 'V', -1. )
+         CALL lbc_lnk( z2d, 'V', -1. )
          CALL iom_put( "v_heattr", 0.5*rcp * z2d )    !  heat transport in j-direction
       ENDIF
@@ -355 +355 @@
             END DO
          END DO
-         CALL lbc_lnk( "diawri",z2d, 'V', -1. )
+         CALL lbc_lnk( z2d, 'V', -1. )
          CALL iom_put( "v_salttr", 0.5 * z2d )        !  heat transport in j-direction
       ENDIF
@@ -368 +368 @@
             END DO
          END DO
-         CALL lbc_lnk( "diawri",z2d, 'T', -1. )
+         CALL lbc_lnk( z2d, 'T', -1. )
          CALL iom_put( "tosmint", rau0 * z2d )        ! Vertical integral of temperature
       ENDIF
@@ -380 +380 @@
             END DO
          END DO
-         CALL lbc_lnk( "diawri",z2d, 'T', -1. )
+         CALL lbc_lnk( z2d, 'T', -1. )
          CALL iom_put( "somint", rau0 * z2d )         ! Vertical integral of salinity
       ENDIF