New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 1482 for trunk/NEMO/OPA_SRC/DIA/diahth.F90 – NEMO

Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMO/OPA_SRC/DIA/diahth.F90

    r1152 r1482  
    1515   USE phycst          ! physical constants 
    1616   USE in_out_manager  ! I/O manager 
     17   USE iom 
    1718 
    1819   IMPLICIT NONE 
     
    112113          
    113114      END DO 
     115      CALL iom_put( "thermod", hth )   ! depth of the thermocline 
    114116 
    115117 
     
    151153         END DO 
    152154      END DO 
     155      CALL iom_put( "20d", hd20 )   ! depth of the 20 isotherm 
    153156 
    154157      ! ----------------------- ! 
     
    189192         END DO 
    190193      END DO 
     194      CALL iom_put( "28d", hd28 )   ! depth of the 28 isotherm 
    191195 
    192196      ! ----------------------------------------- ! 
     
    204208                         + zmoy * ( tn(:,:,jk) + tn(:,:,jk+1) ) * fse3w(:,:,jk) * tmask(:,:,jk) 
    205209      END DO 
     210      CALL iom_put( "hc300", htc3 )   ! first 300m heaat content 
    206211 
    207212   END SUBROUTINE dia_hth 
Note: See TracChangeset for help on using the changeset viewer.