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 ) |
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' |
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 |
|
|