File indexing completed on 2018-03-02 18:36:38 UTC
view on githubraw file Latest commit add29e06 on 2018-01-31 20:35:05 UTC
fb5eaa30cd Jean*0001 #include "CPP_OPTIONS.h"
0002
0003
0004
0005
0006 SUBROUTINE DO_STAGGER_FIELDS_EXCHANGES(myTime, myIter, myThid)
0007
0008
0009
ffd0966f4f Jean*0010
0011
fb5eaa30cd Jean*0012
0013
0014
0015 IMPLICIT NONE
0016
0017 #include "SIZE.h"
0018 #include "EEPARAMS.h"
0019 #include "PARAMS.h"
0020 #include "DYNVARS.h"
0021
0022
0023
0024
0025
0026
0027 _RL myTime
0028 INTEGER myIter
99ff96fe93 Jean*0029 INTEGER myThid
fb5eaa30cd Jean*0030
0031
73939f0406 Jean*0032 IF ( .NOT.useOffLine ) THEN
0033
0034
99ff96fe93 Jean*0035
0036
882e7446f0 Jean*0037 IF ( staggerTimeStep ) THEN
35c76859f0 Jean*0038 IF ( .NOT.applyExchUV_early )
0039 & CALL EXCH_UV_3D_RL( uVel, vVel, .TRUE., Nr, myThid )
0040
cb7fa97db9 Jean*0041 IF ( .NOT.implicitIntGravWave )
99ff96fe93 Jean*0042 & CALL EXCH_3D_RL( wVel, Nr, myThid )
35c76859f0 Jean*0043
fb5eaa30cd Jean*0044 ENDIF
cb7fa97db9 Jean*0045
0046 IF ( implicitIntGravWave ) THEN
bd27360393 Jean*0047
0048
0049 CALL EXCH_SM_3D_RL( theta, .FALSE., Nr, myThid )
0050 CALL EXCH_SM_3D_RL( salt , .FALSE., Nr, myThid )
cb7fa97db9 Jean*0051 ENDIF
0052
fb5eaa30cd Jean*0053
73939f0406 Jean*0054
0055 ENDIF
0056
fb5eaa30cd Jean*0057 RETURN
0058 END