/[MITgcm]/MITgcm/verification/OpenAD/code_oad_all/the_model_main.F
ViewVC logotype

Diff of /MITgcm/verification/OpenAD/code_oad_all/the_model_main.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.1 by utke, Thu Jan 29 21:46:50 2009 UTC revision 1.2 by utke, Tue Feb 24 21:40:24 2009 UTC
# Line 629  C--   Call time stepping loop of full mo Line 629  C--   Call time stepping loop of full mo
629        our_rev_mode%plain=.TRUE.        our_rev_mode%plain=.TRUE.
630        our_rev_mode%tape=.FALSE.        our_rev_mode%tape=.FALSE.
631        our_rev_mode%adjoint=.FALSE.        our_rev_mode%adjoint=.FALSE.
632    #ifdef OAD_DEBUG
633        do i1=1-olx,snx+olx        do i1=1-olx,snx+olx
634          do i2=1-oly,sny+oly          do i2=1-oly,sny+oly
635            do i3=1,nr            do i3=1,nr
636              do i4=1,nsx              do i4=1,nsx
637                do i5=1,nsy                do i5=1,nsy
638                   write (*,'(A,5(I3,A),E25.17E3,A,E25.17E3)') 'JU: (',                   write (standardmessageunit,
639         +'(A,5(I3,A),E25.17E3,A,E25.17E3)')
640         +'OAD: (',
641       +i1,',',i2,',',i3,',',i4,',',i5,') salt/theta ',       +i1,',',i2,',',i3,',',i4,',',i5,') salt/theta ',
642       +xx_salt(i1,i2,i3,i4,i5)%d,'/',xx_theta(i1,i2,i3,i4,i5)%d       +xx_salt(i1,i2,i3,i4,i5)%d,'/',xx_theta(i1,i2,i3,i4,i5)%d
643                end do                end do
# Line 642  C--   Call time stepping loop of full mo Line 645  C--   Call time stepping loop of full mo
645            end do            end do
646          end do          end do
647        end do        end do
648    #endif
649  C     Temporarily change setting of writeBinaryPrec  C     Temporarily change setting of writeBinaryPrec
650        tmpprec = writeBinaryPrec        tmpprec = writeBinaryPrec
651        writeBinaryPrec = ctrlprec        writeBinaryPrec = ctrlprec
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22