142 |
& + act2*max0*max1 |
& + act2*max0*max1 |
143 |
& + act3*max0*max1*max2 |
& + act3*max0*max1*max2 |
144 |
& + act4*max0*max1*max2*max3 |
& + act4*max0*max1*max2*max3 |
145 |
if (tracerIdentity.GT.maxpass) |
if (tracerIdentity.GT.maxpass) then |
146 |
& STOP 'maxpass seems smaller than tracerIdentity' |
print *, 'ph-pass gad_advection ', maxpass, tracerIdentity |
147 |
|
STOP 'maxpass seems smaller than tracerIdentity' |
148 |
|
endif |
149 |
#endif /* ALLOW_AUTODIFF_TAMC */ |
#endif /* ALLOW_AUTODIFF_TAMC */ |
150 |
|
|
151 |
C-- Set up work arrays with valid (i.e. not NaN) values |
C-- Set up work arrays with valid (i.e. not NaN) values |