** Warning **

Issuing rollback() due to DESTROY without explicit disconnect() of DBD::mysql::db handle dbname=MITgcm at /usr/local/share/lxr/lib/LXR/Common.pm line 1224.

Last-Modified: Sun, 16 May 2026 05:09:22 GMT Content-Type: text/html; charset=utf-8 MITgcm/MITgcm/pkg/land/land_diagnostics_state.F
Back to home page

MITgcm
 
 

    

File indexing completed on 2018-03-02 18:41:39 UTC

view on githubraw file Latest commit add29e06 on 2018-01-31 20:35:05 UTC
4c4ae8300c Jean*0001 #include "LAND_OPTIONS.h"
                0002 
                0003 CBOP
f323799cea Jean*0004 C     !ROUTINE: LAND_DIAGNOSTICS_STATE
4c4ae8300c Jean*0005 C     !INTERFACE:
2453644bcf Jean*0006       SUBROUTINE LAND_DIAGNOSTICS_STATE(
                0007      I                            myTime, myIter, myThid )
4c4ae8300c Jean*0008 
                0009 C     !DESCRIPTION: \bv
                0010 C     *==========================================================*
f323799cea Jean*0011 C     | S/R LAND_DIAGNOSTICS_STATE
4c4ae8300c Jean*0012 C     | o fill-in diagnostics array for LAND state variables
                0013 C     *==========================================================*
                0014 C     \ev
2453644bcf Jean*0015 
4c4ae8300c Jean*0016 C     !USES:
                0017       IMPLICIT NONE
                0018 
                0019 C     == Global variables ===
                0020 C-- size for MITgcm & Land package :
                0021 #include "LAND_SIZE.h"
                0022 
                0023 #include "EEPARAMS.h"
                0024 #include "PARAMS.h"
                0025 #include "LAND_PARAMS.h"
                0026 #include "LAND_VARS.h"
                0027 
                0028 C     !INPUT/OUTPUT PARAMETERS:
                0029 C     == Routine arguments ==
                0030 C     myTime   :: Current time of simulation ( s )
                0031 C     myIter   :: Current iteration number in simulation
                0032 C     myThid   :: my Thread number Id
                0033       _RL     myTime
2453644bcf Jean*0034       INTEGER myIter, myThid
4c4ae8300c Jean*0035 CEOP
                0036 
                0037 #ifdef ALLOW_DIAGNOSTICS
                0038 C     == Local variables ==
2453644bcf Jean*0039 C     bi,bj    :: Tile indices
                0040 c     INTEGER bi, bj
4c4ae8300c Jean*0041 c     INTEGER i,j
2453644bcf Jean*0042 c     _RL tmpFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
4c4ae8300c Jean*0043 c     LOGICAL  DIAGNOSTICS_IS_ON
                0044 c     EXTERNAL DIAGNOSTICS_IS_ON
                0045 
                0046 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
                0047 
                0048       IF ( useDiagnostics ) THEN
                0049 
2453644bcf Jean*0050         CALL DIAGNOSTICS_FILL(land_skinT,'GrdSurfT',0,1,0,1,1,myThid)
4c4ae8300c Jean*0051         CALL DIAGNOSTICS_FILL(land_groundT,'GrdTemp ',0,land_nLev,
2453644bcf Jean*0052      &                                                  0,1,1,myThid)
4c4ae8300c Jean*0053         CALL DIAGNOSTICS_FILL(land_enthalp,'GrdEnth ',0,land_nLev,
2453644bcf Jean*0054      &                                                  0,1,1,myThid)
4c4ae8300c Jean*0055         CALL DIAGNOSTICS_FILL(land_groundW,'GrdWater',0,land_nLev,
2453644bcf Jean*0056      &                                                  0,1,1,myThid)
                0057         CALL DIAGNOSTICS_FILL(land_hSnow,'LdSnowH ',0,1,0,1,1,myThid)
4c4ae8300c Jean*0058         CALL DIAGNOSTICS_FILL(land_snowAge,'LdSnwAge',0,1,
2453644bcf Jean*0059      &                                                  0,1,1,myThid)
4c4ae8300c Jean*0060 
                0061       ENDIF
                0062 
                0063 #endif /* ALLOW_DIAGNOSTICS */
                0064 
                0065       RETURN
                0066       END
[ Source navigation ] [ Diff markup ] [ Identifier search ] [ general search ]

This page was automatically generated from https://github.com/MITgcm/MITgcm by the 2.2.1-MITgcm-0.1 LXR engine.

The LXR team
Valid CSS 2.1! Valid HTML 4.01!