pkg/ggl90/ggl90_write_pickup.F

f13fe90a48 Patr*0001 #include "GGL90_OPTIONS.h"
                0002
                0003 CBOP
                0004 C     !ROUTINE: GGL90_WRITE_PICKUP
                0005 C     !INTERFACE:
                0006       SUBROUTINE GGL90_WRITE_PICKUP( permPickup, suff,
                0007      I                               myTime, myIter, myThid )
                0008
                0009 C     !DESCRIPTION: \bv
                0010 C     *================================================================*
                0011 C     | SUBROUTINE GGL90_WRITE_PICKUP
                0012 C     | o write ggl90 pickups
                0013 C     *================================================================*
                0014 C     \ev
                0015
                0016 C     !USES:
                0017       IMPLICIT NONE
                0018 C     === Global variables ===
                0019 #include "SIZE.h"
                0020 #include "EEPARAMS.h"
                0021 #include "PARAMS.h"
                0022 #include "GGL90.h"
                0023
                0024 C     !INPUT/OUTPUT PARAMETERS:
                0025 C     == Routine arguments ==
                0026 C     permPickup :: write a permanent pickup
                0027 C     suff    :: suffix for pickup file (eg. ckptA or 0000000010)
                0028 C     myTime  :: Current time in simulation
                0029 C     myIter  :: Current iteration number in simulation
                0030 C     myThid  :: My Thread Id number
                0031       LOGICAL permPickup
                0032       CHARACTER*(*) suff
                0033       _RL     myTime
                0034       INTEGER myIter
                0035       INTEGER myThid
                0036
                0037 #ifdef ALLOW_GGL90
                0038
                0039 C     !LOCAL VARIABLES:
                0040 C     == Local variables ==
                0041       CHARACTER*(MAX_LEN_FNAM) fn
                0042       INTEGER prec
                0043 c     CHARACTER*(MAX_LEN_MBUF) msgBuf
                0044 CEOP
                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