** 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: Wed, 29 Sep 2026 05:11:10 GMT Content-Type: text/html; charset=utf-8 MITgcm/MITgcm/pkg/gchem/gchem_output.F
Back to home page

MITgcm
 
 

    

File indexing completed on 2025-11-07 06:08:32 UTC

view on githubraw file Latest commit b7411f1a on 2025-11-06 19:05:26 UTC
daab022f42 Step*0001 #include "GCHEM_OPTIONS.h"
5dae554984 Oliv*0002 #ifdef ALLOW_DARWIN
                0003 #include "DARWIN_OPTIONS.h"
                0004 #endif
daab022f42 Step*0005 
                0006 C !INTERFACE: ==========================================================
5175907b12 Jean*0007       SUBROUTINE GCHEM_OUTPUT( myTime, myIter, myThid )
daab022f42 Step*0008 
8120bbf77d Step*0009 C !DESCRIPTION:
                0010 C calls subroutine that calculate diagnostic specific to
                0011 C any tracer epxperiment
5175907b12 Jean*0012 C also calls gchem monitor
8120bbf77d Step*0013 
                0014 C !USES: ===============================================================
daab022f42 Step*0015       IMPLICIT NONE
                0016 #include "SIZE.h"
                0017 #include "EEPARAMS.h"
                0018 #include "PARAMS.h"
5dae554984 Oliv*0019 #include "GCHEM.h"
daab022f42 Step*0020 
                0021 C !INPUT PARAMETERS: ===================================================
5175907b12 Jean*0022 C  myThid   :: my Thread Id number
                0023       _RL     myTime
                0024       INTEGER myIter
                0025       INTEGER myThid
8120bbf77d Step*0026 CEOP
daab022f42 Step*0027 
5bff508b97 Step*0028 #ifdef ALLOW_GCHEM
daab022f42 Step*0029 cccccccccccccccccccccc
                0030 c diagnostics        c
                0031 cccccccccccccccccccccc
5bff508b97 Step*0032 
5dae554984 Oliv*0033 #ifdef ALLOW_DARWIN
                0034 #ifdef ALLOW_TIMEAVE
                0035       IF ( useDARWIN ) THEN
                0036        CALL DARWIN_DIAGS( myTime, myIter, myThid )
                0037 #ifdef ALLOW_CARBON
                0038        CALL DIC_DIAGS( myTime, myIter, myThid )
                0039 #endif
                0040       ENDIF
                0041 #endif
                0042 #endif
                0043 
5bff508b97 Step*0044 #endif /* ALLOW_GCHEM */
daab022f42 Step*0045 
                0046       RETURN
                0047       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!