File indexing completed on 2018-03-02 18:41:15 UTC
view on githubraw file Latest commit add29e06 on 2018-01-31 20:35:05 UTC
f13fe90a48 Patr*0001 #include "GGL90_OPTIONS.h"
0002
0003
0004
0005
0006 SUBROUTINE GGL90_WRITE_PICKUP( permPickup, suff,
0007 I myTime, myIter, myThid )
0008
0009
0010
0011
0012
0013
0014
0015
0016
0017 IMPLICIT NONE
0018
0019 #include "SIZE.h"
0020 #include "EEPARAMS.h"
0021 #include "PARAMS.h"
0022 #include "GGL90.h"
0023
0024
0025
0026
0027
0028
0029
0030
0031 LOGICAL permPickup
0032 CHARACTER*(*) suff
0033 _RL myTime
0034 INTEGER myIter
0035 INTEGER myThid
0036
0037 #ifdef ALLOW_GGL90
0038
0039
0040
0041 CHARACTER*(MAX_LEN_FNAM) fn
0042 INTEGER prec
0043
0044
0045
0046 prec = precFloat64
0047 WRITE(fn,'(A,A)') 'pickup_ggl90.',suff
0048
0049 CALL WRITE_REC_3D_RL( fn, prec, Nr, GGL90TKE, 1, myIter, myThid )
0050
0051 #ifdef ALLOW_GGL90_IDEMIX
0052 IF (useIDEMIX) THEN
0053 CALL WRITE_REC_3D_RL( fn, prec, Nr, IDEMIX_E, 2, myIter, myThid )
0054 ENDIF
0055 #endif
0056
0057 #endif /* ALLOW_GGL90 */
0058
0059 RETURN
0060 END