pkg/oasim/oasim_fields_load.F

87dd4f7d5f Oliv*0001 #include "OASIM_OPTIONS.h"
                0002
                0003 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
                0004 CBOP 0
                0005 C     !ROUTINE: OASIM_FIELDS_LOAD
                0006
                0007 C     !INTERFACE:
                0008       SUBROUTINE OASIM_FIELDS_LOAD( dodiags, myTime, myIter, myThid )
                0009
                0010 C     !DESCRIPTION:
                0011 C     Main entry point: Load input fields for OASIM package and
                0012 C     compute above- and below-water irradiances.
                0013
                0014 C     !USES:
                0015       IMPLICIT NONE
                0016
                0017 C     !INPUT PARAMETERS:
                0018 C     myTime   :: Current time of simulation ( s )
                0019 C     myIter   :: Current iteration number in simulation
                0020 C     myThid   :: my Thread Id number
                0021       LOGICAL dodiags
                0022       _RL     myTime
                0023       INTEGER myIter, myThid
                0024 CEOP
                0025
                0026 #ifdef ALLOW_OASIM
                0027
                0028 C     !LOCAL VARIABLES:
                0029
                0030 #ifdef OASIM_READ_UNFORMATTED
                0031       CALL OASIM_LOAD_UNFORMATTED( myTime, myIter, myThid )
                0032 #else
                0033       CALL OASIM_EXF_LOAD( myTime, myIter, myThid )
                0034 #endif
                0035
                0036       CALL OASIM_FORCING( dodiags, myTime, myIter, myThid )
                0037
                0038       CALL OASIM_MONITOR( myTime, myIter, myThid )
                0039
                0040 #endif /* ALLOW_OASIM */
                0041
                0042       RETURN
                0043       END