/[MITgcm]/MITgcm/verification/bottom_ctrl_5x5/code_ad/dummy_in_hfac.F
ViewVC logotype

Diff of /MITgcm/verification/bottom_ctrl_5x5/code_ad/dummy_in_hfac.F

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

revision 1.1 by heimbach, Wed Jun 7 02:00:01 2006 UTC revision 1.2 by jmc, Tue Oct 9 02:36:41 2007 UTC
# Line 1  Line 1 
1    C $Header$
2    C $Name$
3    
4  #include "CPP_OPTIONS.h"  #include "CPP_OPTIONS.h"
5    
6        subroutine dummy_in_hfac( myname, myIter, myThid )        subroutine dummy_in_hfac( myname, myIter, myThid )
# Line 105  C--     Read IO error counter Line 108  C--     Read IO error counter
108    
109          IF ( myname .eq. 'C' ) THEN          IF ( myname .eq. 'C' ) THEN
110             myfullname = 'hFacC'             myfullname = 'hFacC'
111             CALL WRITE_FLD_XYZ_RL ( 'ADJhFacC.', suff, adhfacc,             CALL WRITE_FLD_XYZ_RL ( 'ADJhFacC.', suff, adhfacc,
112       &          myIter, myThid)       &          myIter, myThid)
113          ELSE IF ( myname .eq. 'W' ) THEN          ELSE IF ( myname .eq. 'W' ) THEN
114             myfullname = 'hFacW'             myfullname = 'hFacW'
115             CALL WRITE_FLD_XYZ_RL ( 'ADJhFacW.', suff, adhfacw,             CALL WRITE_FLD_XYZ_RL ( 'ADJhFacW.', suff, adhfacw,
116       &          myIter, myThid)       &          myIter, myThid)
117          ELSE IF ( myname .eq. 'S' ) THEN          ELSE IF ( myname .eq. 'S' ) THEN
118             myfullname = 'hFacS'             myfullname = 'hFacS'
119             CALL WRITE_FLD_XYZ_RL ( 'ADJhFacS.', suff, adhfacs,             CALL WRITE_FLD_XYZ_RL ( 'ADJhFacS.', suff, adhfacs,
120       &          myIter, myThid)       &          myIter, myThid)
121          ELSE          ELSE
122             write(*,*) 'addummy_in_hfac: no valid myname specified'             write(*,*) 'addummy_in_hfac: no valid myname specified'
# Line 130  C--     Check for IO errors Line 133  C--     Check for IO errors
133           WRITE(msgBuf,'(A,I10)') 'Timestep ',myIter           WRITE(msgBuf,'(A,I10)') 'Timestep ',myIter
134           CALL PRINT_ERROR( msgBuf, 1 )           CALL PRINT_ERROR( msgBuf, 1 )
135          ELSE          ELSE
136           WRITE(msgBuf,'(A,I10)')             WRITE(msgBuf,'(A,I10)')
137       &    '// ad'//myfullname//' written, timestep', myIter       &    '// ad'//myfullname//' written, timestep', myIter
138           CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,           CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
139       &    SQUEEZE_RIGHT, 1 )       &    SQUEEZE_RIGHT, 1 )
140           WRITE(msgBuf,'(A)')  ' '           WRITE(msgBuf,'(A)')  ' '
141           CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,           CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
142       &    SQUEEZE_RIGHT, 1 )       &    SQUEEZE_RIGHT, 1 )
143          ENDIF          ENDIF
144    

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

  ViewVC Help
Powered by ViewVC 1.1.22