pkg/cost/cost_final_store.F

5ed655852f Jean*0001 #include "COST_OPTIONS.h"
47dd97aab7 Patr*0002 #ifdef ALLOW_AUTODIFF
                0003 # include "AUTODIFF_OPTIONS.h"
                0004 #endif
39154404ca Patr*0005
acacc28f7f Jean*0006 CBOP
                0007 C     !ROUTINE: COST_FINAL_STORE
39154404ca Patr*0008
acacc28f7f Jean*0009 C     !INTERFACE:
                0010       SUBROUTINE COST_FINAL_STORE( lastDiva, myThid )
39154404ca Patr*0011
acacc28f7f Jean*0012 C     !DESCRIPTION:
                0013 C     Store cost function value
                0014 C     This is required in conjunction with DIVA
                0015 C     heimbach@mit.edu 5-Mar-2003
39154404ca Patr*0016
acacc28f7f Jean*0017 C     !USES:
                0018       IMPLICIT NONE
                0019 C     == Global variables ===
39154404ca Patr*0020 #include "EEPARAMS.h"
                0021 #include "SIZE.h"
                0022 #include "cost.h"
                0023
acacc28f7f Jean*0024 C     !INPUT/OUTPUT PARAMETERS:
                0025 C     lastDiva :: output argument, initialised to False (if DIVA)
                0026 C     myThid   :: my Thread Id number
                0027       LOGICAL lastDiva
                0028       INTEGER myThid
                0029
                0030 #ifdef ALLOW_DIVIDED_ADJOINT
                0031 C     !LOCAL VARIABLES:
                0032 CEOP
                0033
                0034 C--   Each process has calculated the global part for itself.
                0035       lastDiva = .FALSE.
                0036
                0037       IF ( myProcId .EQ. 0 ) THEN
                0038         _BEGIN_MASTER( myThid )
                0039         OPEN(UNIT=76,FILE='costfinal')
                0040         WRITE(76,*) fc
                0041         CLOSE(76)
                0042         _END_MASTER( myThid )
39154404ca Patr*0043       ENDIF
                0044       _BARRIER
                0045
acacc28f7f Jean*0046 #endif /* ALLOW_DIVIDED_ADJOINT */
39154404ca Patr*0047
acacc28f7f Jean*0048       RETURN
                0049       END