49 |
_RL dT |
_RL dT |
50 |
INTEGER time_as_int |
INTEGER time_as_int |
51 |
integer ip |
integer ip |
|
CML integer i,j,k,bi,bj |
|
|
CML _RL tmp(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
52 |
CEOP |
CEOP |
53 |
|
|
54 |
dT=deltaTclock |
dT=deltaTclock |
56 |
IF (myIter.LE.nIter0+1.OR.DIFFERENT_MULTIPLE( |
IF (myIter.LE.nIter0+1.OR.DIFFERENT_MULTIPLE( |
57 |
& PTRACERS_monitorFreq,myTime,myTime-dT)) THEN |
& PTRACERS_monitorFreq,myTime,myTime-dT)) THEN |
58 |
|
|
|
CML mon_write_stdout = .TRUE. |
|
|
|
|
59 |
C Ptracers field monitor start |
C Ptracers field monitor start |
60 |
_BEGIN_MASTER(myThid) |
_BEGIN_MASTER(myThid) |
61 |
#ifdef ALLOW_USE_MPI |
#ifdef ALLOW_USE_MPI |