File indexing completed on 2024-07-17 05:10:38 UTC
view on githubraw file Latest commit acacc28f on 2024-07-17 03:59:01 UTC
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
0007
39154404ca Patr*0008
acacc28f7f Jean*0009
0010 SUBROUTINE COST_FINAL_STORE( lastDiva, myThid )
39154404ca Patr*0011
acacc28f7f Jean*0012
0013
0014
0015
39154404ca Patr*0016
acacc28f7f Jean*0017
0018 IMPLICIT NONE
0019
39154404ca Patr*0020 #include "EEPARAMS.h"
0021 #include "SIZE.h"
0022 #include "cost.h"
0023
acacc28f7f Jean*0024
0025
0026
0027 LOGICAL lastDiva
0028 INTEGER myThid
0029
0030 #ifdef ALLOW_DIVIDED_ADJOINT
0031
0032
0033
0034
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