pkg/cost/cost_init_fixed.F

69361556c2 Mart*0001 #include "COST_OPTIONS.h"
                0002
                0003 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
                0004 CBOP
                0005 C !ROUTINE: COST_INIT_FIXED
                0006
                0007 C !INTERFACE:
                0008       SUBROUTINE COST_INIT_FIXED( myThid )
                0009
                0010 C     !DESCRIPTION:
                0011 C     Initialize COST variables that are kept fixed during the run.
                0012
                0013 C     !USES:
                0014       IMPLICIT NONE
                0015 C     == Global variables ===
                0016 #include "EEPARAMS.h"
                0017 #include "SIZE.h"
                0018 #include "cost.h"
                0019
                0020 C     !INPUT/OUTPUT PARAMETERS:
                0021 C     myThid ::  my Thread Id number
                0022       INTEGER myThid
                0023 CEOP
                0024
                0025 C     !LOCAL VARIABLES:
                0026
                0027 C--   The first time around we want to write the cost function to a file
                0028       costWriteCostFunction = .TRUE.
                0029
                0030       RETURN
                0031       END