Changeset 873
- Timestamp:
- 05/17/19 16:31:11 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/trunk/src/physics/physics_external.F90
r872 r873 133 133 134 134 DO iq=1, nqtot 135 dq(:,:,iq)=((q(:,:,iq)-q0(:,:,iq))/itau_physics) /rhodz(:,:)135 dq(:,:,iq)=((q(:,:,iq)-q0(:,:,iq))/itau_physics)*rhodz(:,:) 136 136 ENDDO 137 137 … … 160 160 CALL compute_rhodz(.TRUE., ps, rhodz) 161 161 DO iq=1, nqtot 162 q(:,:,iq)=q(:,:,iq)+dq(:,:,iq) *rhodz(:,:)162 q(:,:,iq)=q(:,:,iq)+dq(:,:,iq)/rhodz(:,:) 163 163 ENDDO 164 164 ENDDO
Note: See TracChangeset
for help on using the changeset viewer.