47 |
|
|
48 |
IF (useMNC .AND. PTRACERS_write_mnc) THEN |
IF (useMNC .AND. PTRACERS_write_mnc) THEN |
49 |
CALL MNC_CW_SET_UDIM('ptracers', -1, myThid) |
CALL MNC_CW_SET_UDIM('ptracers', -1, myThid) |
50 |
CALL MNC_CW_I_W('I','ptracers',0,0,'iter',myIter,myThid) |
CALL MNC_CW_I_W_S('I','ptracers',0,0,'iter',myIter,myThid) |
51 |
CALL MNC_CW_SET_UDIM('ptracers', 0, myThid) |
CALL MNC_CW_SET_UDIM('ptracers', 0, myThid) |
52 |
DO ii = 1,PTRACERS_numInUse |
DO ii = 1,PTRACERS_numInUse |
53 |
CALL MNC_CW_RL_W('D','ptracers',0,0,PTRACERS_names(ii), |
CALL MNC_CW_RL_W('D','ptracers',0,0,PTRACERS_names(ii), |