66 |
#ifdef ALLOW_MOM_VECINV |
#ifdef ALLOW_MOM_VECINV |
67 |
|
|
68 |
C == Functions == |
C == Functions == |
69 |
LOGICAL DIFF_BASE_MULTIPLE |
LOGICAL DIFFERENT_MULTIPLE |
70 |
EXTERNAL DIFF_BASE_MULTIPLE |
EXTERNAL DIFFERENT_MULTIPLE |
71 |
|
|
72 |
C == Local variables == |
C == Local variables == |
73 |
_RL vF (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
_RL vF (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
114 |
fVerV(1,1,kUp) = fVerV(1,1,kUp) |
fVerV(1,1,kUp) = fVerV(1,1,kUp) |
115 |
#endif |
#endif |
116 |
|
|
117 |
writeDiag = DIFF_BASE_MULTIPLE(baseTime, diagFreq, |
writeDiag = DIFFERENT_MULTIPLE(diagFreq, myTime, deltaTClock) |
|
& myTime, deltaTClock) |
|
118 |
|
|
119 |
#ifdef ALLOW_MNC |
#ifdef ALLOW_MNC |
120 |
IF (useMNC .AND. snapshot_mnc .AND. writeDiag) THEN |
IF (useMNC .AND. snapshot_mnc .AND. writeDiag) THEN |