Changeset 13981 for NEMO/branches/2020/dev_r13648_ASINTER-04_laurent_bulk_ice/src/OCE/DYN/dynatf.F90

Timestamp:

2020-12-02T11:50:03+01:00 (3 years ago)

Author:

laurent

Message:

Canceled changes in dynatf.F90, NEW "iom_put-able" "[uv]tau_oce" and "[uv]tau_ice" at T-points!

File:

• NEMO/branches/2020/dev_r13648_ASINTER-04_laurent_bulk_ice/src/OCE/DYN/dynatf.F90 (modified) (2 diffs)

NEMO/branches/2020/dev_r13648_ASINTER-04_laurent_bulk_ice/src/OCE/DYN/dynatf.F90

@@ -332 +332 @@
             CALL iom_put(  "utau", zutau(:,:) )
             DEALLOCATE(zutau)
-         !ELSE
-         ! #laurent: it is done in blk_oce_1() of sbcblk.F90 !
-         !       CALL iom_put(  "utau", utau(:,:) )
+         ELSE
+            CALL iom_put(  "utau", utau(:,:) )
          ENDIF
       ENDIF
@@ -347 +346 @@
             CALL iom_put(  "vtau", zvtau(:,:) )
             DEALLOCATE(zvtau)
-         !ELSE
-         ! #laurent: it is done in blk_oce_1() of sbcblk.F90 !
-         !   CALL iom_put(  "vtau", vtau(:,:) )
+         ELSE
+            CALL iom_put(  "vtau", vtau(:,:) )
          ENDIF
       ENDIF