56 |
_BEGIN_MASTER( myThid ) |
_BEGIN_MASTER( myThid ) |
57 |
|
|
58 |
#ifdef ALLOW_MNC |
#ifdef ALLOW_MNC |
59 |
IF (useMNC .AND. PTRACERS_write_mnc) THEN |
IF ( PTRACERS_snapshot_mnc ) THEN |
60 |
CALL MNC_CW_SET_UDIM('ptracers', -1, myThid) |
CALL MNC_CW_SET_UDIM('ptracers', -1, myThid) |
61 |
CALL MNC_CW_RL_W_S('D','ptracers',0,0,'T',myTime,myThid) |
CALL MNC_CW_RL_W_S('D','ptracers',0,0,'T',myTime,myThid) |
62 |
CALL MNC_CW_SET_UDIM('ptracers', 0, myThid) |
CALL MNC_CW_SET_UDIM('ptracers', 0, myThid) |
68 |
ENDIF |
ENDIF |
69 |
#endif /* ALLOW_MNC */ |
#endif /* ALLOW_MNC */ |
70 |
|
|
71 |
IF (PTRACERS_write_mdsio) THEN |
IF ( PTRACERS_snapshot_mdsio ) THEN |
72 |
|
|
73 |
C Loop over tracers |
C Loop over tracers |
74 |
DO iTracer=1,PTRACERS_numInUse |
DO iTracer=1,PTRACERS_numInUse |