Changeset 2125 for branches/DEV_r1784_3DF/NEMO/OPA_SRC/DIA/diawri.F90

Timestamp:

2010-09-27T12:22:04+02:00 (14 years ago)

Author:

cbricaud

Message:

modification: don't allocate fdta arrays when time-interpollation is not used

File:

• branches/DEV_r1784_3DF/NEMO/OPA_SRC/DIA/diawri.F90 (modified) (2 diffs)

branches/DEV_r1784_3DF/NEMO/OPA_SRC/DIA/diawri.F90

@@ -30 +30 @@
    USE limwri_2 
 #endif
+   USE dtatem
+   USE dtasal
+
    IMPLICIT NONE
    PRIVATE
@@ -489 +492 @@
 
       ! Write fields on T grid
-      CALL histwrite( nid_T, "votemper", it, tn            , ndim_T , ndex_T  )   ! temperature
-      CALL histwrite( nid_T, "vosaline", it, sn            , ndim_T , ndex_T  )   ! salinity
+      CALL histwrite( nid_T, "votemper", it, t_dta            , ndim_T , ndex_T  )   ! temperature
+      CALL histwrite( nid_T, "vosaline", it, s_dta            , ndim_T , ndex_T  )   ! salinity
       CALL histwrite( nid_T, "sosstsst", it, tn(:,:,1)     , ndim_hT, ndex_hT )   ! sea surface temperature
       CALL histwrite( nid_T, "sosaline", it, sn(:,:,1)     , ndim_hT, ndex_hT )   ! sea surface salinity