pkg/exf/exf_diagnostics_fill.F

b1e3781773 Patr*0001 #include "EXF_OPTIONS.h"
                0002
40d541aac0 Jean*0003 CBOP 0
                0004 C     !ROUTINE: EXF_DIAGNOSTICS_FILL
                0005 C     !INTERFACE:
54dfefdf91 Jean*0006       SUBROUTINE EXF_DIAGNOSTICS_FILL(
                0007      I                                 myTime, myIter, myThid )
b1e3781773 Patr*0008
40d541aac0 Jean*0009 C     !DESCRIPTION:
                0010 C     Fill-in External Forcing (EXF) pkg diagnostics
                0011 C     directly from pkg global variables (in common)
b1e3781773 Patr*0012
40d541aac0 Jean*0013 C     !USES:
54dfefdf91 Jean*0014       IMPLICIT NONE
b1e3781773 Patr*0015
40d541aac0 Jean*0016 C     == Global variables ===
b1e3781773 Patr*0017 #include "EEPARAMS.h"
                0018 #include "SIZE.h"
                0019 #include "PARAMS.h"
082e18c36c Jean*0020 #include "EXF_PARAM.h"
                0021 #include "EXF_FIELDS.h"
b1e3781773 Patr*0022
40d541aac0 Jean*0023 C     !INPUT PARAMETERS:
                0024 C     myTime    :: current time in simulation [s]
                0025 C     myIter    :: current iteration number in simulation
                0026 C     myThid    :: my Thread Id number
54dfefdf91 Jean*0027       _RL     myTime
                0028       INTEGER myIter
                0029       INTEGER myThid
b1e3781773 Patr*0030
                0031 #ifdef ALLOW_DIAGNOSTICS
40d541aac0 Jean*0032 C     !FUNCTIONS:
                0033 c     LOGICAL  DIAGNOSTICS_IS_ON
                0034 c     EXTERNAL DIAGNOSTICS_IS_ON
                0035
                0036 C     !LOCAL VARIABLES:
                0037 CEOP
                0038
b1e3781773 Patr*0039       IF ( useDiagnostics ) THEN
54dfefdf91 Jean*0040
40d541aac0 Jean*0041        IF ( .NOT.diags_opOceWeighted ) THEN
                0042         CALL DIAGNOSTICS_FILL( ustress,   'EXFtaux ',0,1,0,1,1,myThid )
                0043         CALL DIAGNOSTICS_FILL( vstress,   'EXFtauy ',0,1,0,1,1,myThid )
                0044         CALL DIAGNOSTICS_FILL( sflux,     'EXFempmr',0,1,0,1,1,myThid )
                0045         CALL DIAGNOSTICS_FILL( hflux,     'EXFqnet ',0,1,0,1,1,myThid )
852b86777c Jean*0046 #if defined(ALLOW_ATM_TEMP) || defined(SHORTWAVE_HEATING)
40d541aac0 Jean*0047         CALL DIAGNOSTICS_FILL( swflux,    'EXFswnet',0,1,0,1,1,myThid )
b1e3781773 Patr*0048 #endif
40d541aac0 Jean*0049        ENDIF
                0050         CALL DIAGNOSTICS_FILL( uwind,     'EXFuwind',0,1,0,1,1,myThid )
                0051         CALL DIAGNOSTICS_FILL( vwind,     'EXFvwind',0,1,0,1,1,myThid )
                0052         CALL DIAGNOSTICS_FILL( wspeed,    'EXFwspee',0,1,0,1,1,myThid )
b1e3781773 Patr*0053 #ifdef ALLOW_ATM_TEMP
40d541aac0 Jean*0054         CALL DIAGNOSTICS_FILL( atemp,     'EXFatemp',0,1,0,1,1,myThid )
                0055         CALL DIAGNOSTICS_FILL( aqh,       'EXFaqh  ',0,1,0,1,1,myThid )
cf91654aa8 Jean*0056        IF ( .NOT.diags_opOceWeighted ) THEN
40d541aac0 Jean*0057         CALL DIAGNOSTICS_FILL( hs,        'EXFhs   ',0,1,0,1,1,myThid )
                0058         CALL DIAGNOSTICS_FILL( hl,        'EXFhl   ',0,1,0,1,1,myThid )
                0059         CALL DIAGNOSTICS_FILL( lwflux,    'EXFlwnet',0,1,0,1,1,myThid )
                0060         CALL DIAGNOSTICS_FILL( evap,      'EXFevap ',0,1,0,1,1,myThid )
cf91654aa8 Jean*0061        ENDIF
40d541aac0 Jean*0062         CALL DIAGNOSTICS_FILL( precip,    'EXFpreci',0,1,0,1,1,myThid )
                0063         CALL DIAGNOSTICS_FILL( snowprecip,'EXFsnow ',0,1,0,1,1,myThid )
b1e3781773 Patr*0064 #endif
                0065 #ifdef ALLOW_DOWNWARD_RADIATION
40d541aac0 Jean*0066         CALL DIAGNOSTICS_FILL( lwdown,    'EXFlwdn ',0,1,0,1,1,myThid )
                0067         CALL DIAGNOSTICS_FILL( swdown,    'EXFswdn ',0,1,0,1,1,myThid )
b1e3781773 Patr*0068 #endif
                0069 #ifdef ATMOSPHERIC_LOADING
40d541aac0 Jean*0070         CALL DIAGNOSTICS_FILL( apressure, 'EXFpress',0,1,0,1,1,myThid )
b1e3781773 Patr*0071 #endif
7c8c625e4b Mart*0072 #ifdef ALLOW_RUNOFF
40d541aac0 Jean*0073         CALL DIAGNOSTICS_FILL( runoff,    'EXFroff ',0,1,0,1,1,myThid )
7c8c625e4b Mart*0074 #endif
e603dbf008 Dimi*0075 #ifdef ALLOW_RUNOFTEMP
40d541aac0 Jean*0076         CALL DIAGNOSTICS_FILL( runoftemp, 'EXFroft ',0,1,0,1,1,myThid )
e603dbf008 Dimi*0077 #endif
a66aad0124 Gael*0078 #ifdef ALLOW_SALTFLX
40d541aac0 Jean*0079         CALL DIAGNOSTICS_FILL( saltflx,   'EXFsalfx',0,1,0,1,1,myThid )
a66aad0124 Gael*0080 #endif
54dfefdf91 Jean*0081
b1e3781773 Patr*0082       ENDIF
                0083 #endif /* ALLOW_DIAGNOSTICS */
                0084
54dfefdf91 Jean*0085       RETURN
                0086       END