103 |
|
|
104 |
#ifdef ALLOW_MNC |
#ifdef ALLOW_MNC |
105 |
INTEGER offsets(9) |
INTEGER offsets(9) |
106 |
|
CHARACTER*(1) pf |
107 |
#endif |
#endif |
108 |
|
|
109 |
#ifdef ALLOW_AUTODIFF_TAMC |
#ifdef ALLOW_AUTODIFF_TAMC |
119 |
|
|
120 |
#ifdef ALLOW_MNC |
#ifdef ALLOW_MNC |
121 |
IF (useMNC .AND. snapshot_mnc .AND. writeDiag) THEN |
IF (useMNC .AND. snapshot_mnc .AND. writeDiag) THEN |
122 |
|
IF ( writeBinaryPrec .EQ. precFloat64 ) THEN |
123 |
|
pf(1:1) = 'D' |
124 |
|
ELSE |
125 |
|
pf(1:1) = 'R' |
126 |
|
ENDIF |
127 |
IF ((bi .EQ. 1).AND.(bj .EQ. 1).AND.(k .EQ. 1)) THEN |
IF ((bi .EQ. 1).AND.(bj .EQ. 1).AND.(k .EQ. 1)) THEN |
128 |
CALL MNC_CW_SET_UDIM('mom_vi', -1, myThid) |
CALL MNC_CW_SET_UDIM('mom_vi', -1, myThid) |
129 |
CALL MNC_CW_RL_W_S('D','mom_vi',0,0,'T',myTime,myThid) |
CALL MNC_CW_RL_W_S('D','mom_vi',0,0,'T',myTime,myThid) |
415 |
ENDIF |
ENDIF |
416 |
#ifdef ALLOW_MNC |
#ifdef ALLOW_MNC |
417 |
IF (useMNC .AND. snapshot_mnc) THEN |
IF (useMNC .AND. snapshot_mnc) THEN |
418 |
CALL MNC_CW_RL_W_OFFSET('D','mom_vi',bi,bj, 'fV', uCf, |
CALL MNC_CW_RL_W_OFFSET(pf,'mom_vi',bi,bj, 'fV', uCf, |
419 |
& offsets, myThid) |
& offsets, myThid) |
420 |
CALL MNC_CW_RL_W_OFFSET('D','mom_vi',bi,bj, 'fU', vCf, |
CALL MNC_CW_RL_W_OFFSET(pf,'mom_vi',bi,bj, 'fU', vCf, |
421 |
& offsets, myThid) |
& offsets, myThid) |
422 |
ENDIF |
ENDIF |
423 |
#endif /* ALLOW_MNC */ |
#endif /* ALLOW_MNC */ |
484 |
ENDIF |
ENDIF |
485 |
#ifdef ALLOW_MNC |
#ifdef ALLOW_MNC |
486 |
IF (useMNC .AND. snapshot_mnc) THEN |
IF (useMNC .AND. snapshot_mnc) THEN |
487 |
CALL MNC_CW_RL_W_OFFSET('D','mom_vi',bi,bj, 'zV', uCf, |
CALL MNC_CW_RL_W_OFFSET(pf,'mom_vi',bi,bj, 'zV', uCf, |
488 |
& offsets, myThid) |
& offsets, myThid) |
489 |
CALL MNC_CW_RL_W_OFFSET('D','mom_vi',bi,bj, 'zU', vCf, |
CALL MNC_CW_RL_W_OFFSET(pf,'mom_vi',bi,bj, 'zU', vCf, |
490 |
& offsets, myThid) |
& offsets, myThid) |
491 |
ENDIF |
ENDIF |
492 |
#endif /* ALLOW_MNC */ |
#endif /* ALLOW_MNC */ |
549 |
ENDIF |
ENDIF |
550 |
#ifdef ALLOW_MNC |
#ifdef ALLOW_MNC |
551 |
IF (useMNC .AND. snapshot_mnc) THEN |
IF (useMNC .AND. snapshot_mnc) THEN |
552 |
CALL MNC_CW_RL_W_OFFSET('D','mom_vi',bi,bj, 'KEx', uCf, |
CALL MNC_CW_RL_W_OFFSET(pf,'mom_vi',bi,bj, 'KEx', uCf, |
553 |
& offsets, myThid) |
& offsets, myThid) |
554 |
CALL MNC_CW_RL_W_OFFSET('D','mom_vi',bi,bj, 'KEy', vCf, |
CALL MNC_CW_RL_W_OFFSET(pf,'mom_vi',bi,bj, 'KEy', vCf, |
555 |
& offsets, myThid) |
& offsets, myThid) |
556 |
ENDIF |
ENDIF |
557 |
#endif /* ALLOW_MNC */ |
#endif /* ALLOW_MNC */ |
592 |
ENDIF |
ENDIF |
593 |
#ifdef ALLOW_MNC |
#ifdef ALLOW_MNC |
594 |
IF (useMNC .AND. snapshot_mnc) THEN |
IF (useMNC .AND. snapshot_mnc) THEN |
595 |
CALL MNC_CW_RL_W_OFFSET('D','mom_vi',bi,bj,'Ds',strain, |
CALL MNC_CW_RL_W_OFFSET(pf,'mom_vi',bi,bj,'Ds',strain, |
596 |
& offsets, myThid) |
& offsets, myThid) |
597 |
CALL MNC_CW_RL_W_OFFSET('D','mom_vi',bi,bj,'Dt',tension, |
CALL MNC_CW_RL_W_OFFSET(pf,'mom_vi',bi,bj,'Dt',tension, |
598 |
& offsets, myThid) |
& offsets, myThid) |
599 |
CALL MNC_CW_RL_W_OFFSET('D','mom_vi',bi,bj,'Du',guDiss, |
CALL MNC_CW_RL_W_OFFSET(pf,'mom_vi',bi,bj,'Du',guDiss, |
600 |
& offsets, myThid) |
& offsets, myThid) |
601 |
CALL MNC_CW_RL_W_OFFSET('D','mom_vi',bi,bj,'Dv',gvDiss, |
CALL MNC_CW_RL_W_OFFSET(pf,'mom_vi',bi,bj,'Dv',gvDiss, |
602 |
& offsets, myThid) |
& offsets, myThid) |
603 |
CALL MNC_CW_RL_W_OFFSET('D','mom_vi',bi,bj,'Z3',vort3, |
CALL MNC_CW_RL_W_OFFSET(pf,'mom_vi',bi,bj,'Z3',vort3, |
604 |
& offsets, myThid) |
& offsets, myThid) |
605 |
CALL MNC_CW_RL_W_OFFSET('D','mom_vi',bi,bj,'W3',omega3, |
CALL MNC_CW_RL_W_OFFSET(pf,'mom_vi',bi,bj,'W3',omega3, |
606 |
& offsets, myThid) |
& offsets, myThid) |
607 |
CALL MNC_CW_RL_W_OFFSET('D','mom_vi',bi,bj,'KE',KE, |
CALL MNC_CW_RL_W_OFFSET(pf,'mom_vi',bi,bj,'KE',KE, |
608 |
& offsets, myThid) |
& offsets, myThid) |
609 |
CALL MNC_CW_RL_W_OFFSET('D','mom_vi',bi,bj,'D', hDiv, |
CALL MNC_CW_RL_W_OFFSET(pf,'mom_vi',bi,bj,'D', hDiv, |
610 |
& offsets, myThid) |
& offsets, myThid) |
611 |
ENDIF |
ENDIF |
612 |
#endif /* ALLOW_MNC */ |
#endif /* ALLOW_MNC */ |