Changeset 1482 for trunk/NEMO/OPA_SRC/DIA/diahth.F90

Timestamp:

2009-07-03T17:28:06+02:00 (15 years ago)

Author:

smasson

Message:

distribution of iom_put + cleaning of LIM2 outputs, see ticket:437

File:

• trunk/NEMO/OPA_SRC/DIA/diahth.F90 (modified) (5 diffs)

trunk/NEMO/OPA_SRC/DIA/diahth.F90

@@ -15 +15 @@
    USE phycst          ! physical constants
    USE in_out_manager  ! I/O manager
+   USE iom
 
    IMPLICIT NONE
@@ -112 +113 @@
          
       END DO
+      CALL iom_put( "thermod", hth )   ! depth of the thermocline
 
 
@@ -151 +153 @@
          END DO
       END DO
+      CALL iom_put( "20d", hd20 )   ! depth of the 20 isotherm
 
       ! ----------------------- !
@@ -189 +192 @@
          END DO
       END DO
+      CALL iom_put( "28d", hd28 )   ! depth of the 28 isotherm
 
       ! ----------------------------------------- !
@@ -204 +208 @@
                          + zmoy * ( tn(:,:,jk) + tn(:,:,jk+1) ) * fse3w(:,:,jk) * tmask(:,:,jk)
       END DO
+      CALL iom_put( "hc300", htc3 )   ! first 300m heaat content
 
    END SUBROUTINE dia_hth