Back to home page

MITgcm

 
 

    


File indexing completed on 2021-04-08 05:12:33 UTC

view on githubraw file Latest commit ba0b0470 on 2021-04-08 01:06:32 UTC
87ea84cac6 Jean*0001 CBOP
                0002 C     !ROUTINE: THSICE_TAVE.h
                0003 C     !INTERFACE:
                0004 C     include "THSICE_TAVE.h"
                0005 C     !DESCRIPTION:
                0006 C     \bv
                0007 C     *==========================================================*
                0008 C     | THSICE_TAVE.h
                0009 C     | o Header for Therm-SeaICE time-average diagnostic
                0010 C     *==========================================================*
                0011 C     \ev
                0012 CEOP
                0013 
                0014 #ifdef ALLOW_THSICE
                0015 #ifdef ALLOW_TIMEAVE
                0016 
77253a797d Jean*0017 C--   COMMON /THSICE_TAVE_VARS/ Time average THermodynamic-SeaICE variables
87ea84cac6 Jean*0018 C     ice_timeAve    :: cumulated time [s]
                0019 C     ice_fract_Ave  :: cumulated Ice fraction  [0-1]
                0020 C     ice_iceH_Ave   :: cumulated Ice thickness [m]
                0021 C     ice_snowH_Ave  :: cumulated Snow thickness [m]
                0022 C     ice_Tsrf_Ave   :: cumulated surface Temperature [oC]
                0023 C     ice_Tice1_Ave  :: cumulated 1srt level Temp. [oC]
                0024 C     ice_Tice2_Ave  :: cumulated 2nd  level Temp. [oC]
8d49675495 Jean*0025 cC    ice_snowPr_Ave :: cumulated snow precipitation (+=down) [kg/m2/s]
87ea84cac6 Jean*0026 C     ice_flx2oc_Ave :: cumulated heat flux out of the ocean (+=up) [W/m2]
                0027 C     ice_frw2oc_Ave :: cumulated fresh-water flux out off the ocean (E-P) [m/s]
ba0b047096 Mart*0028 C     ice_salFx_Ave  :: cumulated salt flux out of the ocean (+=up) [g/m2/s]
87ea84cac6 Jean*0029 C     ice_flxAtm_Ave :: cumulated net heat flux from Atmosphere (+=down) [W/m2]
77253a797d Jean*0030 C     ice_frwAtm_Ave :: cumulated fresh-water flux from Atmos. (+=up) [kg/m2/s]
87ea84cac6 Jean*0031 C     ice_albedo_Ave :: cumulated sea-ice albedo [0-1]
8d49675495 Jean*0032 C     ice_tMxL_Ave   :: cumulated ocean mixed-layer Temp. [oC]
ba0b047096 Mart*0033 C     ice_sMxL_Ave   :: cumulated ocean mixed-layer salinity [g/kg]
87ea84cac6 Jean*0034 
77253a797d Jean*0035       _RL ice_timeAve(nSx,nSy)
87ea84cac6 Jean*0036       _RL ice_fract_Ave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0037       _RL ice_iceH_Ave  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0038       _RL ice_snowH_Ave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0039       _RL ice_Tsrf_Ave  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0040       _RL ice_Tice1_Ave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0041       _RL ice_Tice2_Ave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
8d49675495 Jean*0042 c     _RL ice_snowPr_Ave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
87ea84cac6 Jean*0043       _RL ice_flx2oc_Ave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0044       _RL ice_frw2oc_Ave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0045       _RL ice_salFx_Ave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0046       _RL ice_flxAtm_Ave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0047       _RL ice_frwAtm_Ave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0048       _RL ice_albedo_Ave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
8d49675495 Jean*0049       _RL ice_tMxL_Ave  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0050       _RL ice_sMxL_Ave  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
87ea84cac6 Jean*0051 
                0052       COMMON /THSICE_TAVE_ARRAYS/ ice_timeAve,
                0053      &                 ice_fract_Ave, ice_iceH_Ave,
                0054      &                 ice_snowH_Ave, ice_Tsrf_Ave,
8d49675495 Jean*0055      &                 ice_Tice1_Ave, ice_Tice2_Ave,
87ea84cac6 Jean*0056      &                 ice_flx2oc_Ave,ice_frw2oc_Ave,ice_salFx_Ave,
                0057      &                 ice_flxAtm_Ave,ice_frwAtm_Ave,ice_albedo_Ave,
8d49675495 Jean*0058      &                 ice_tMxL_Ave, ice_sMxL_Ave
87ea84cac6 Jean*0059 
                0060 #endif /* ALLOW_TIMEAVE */
                0061 #endif /* ALLOW_THSICE */
df4e8f7bcf Ed H*0062 
                0063 CEH3 ;;; Local Variables: ***
                0064 CEH3 ;;; mode:fortran ***
                0065 CEH3 ;;; End: ***