- Timestamp:
- 11/16/18 13:12:38 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/devel/src/unstructured/timestep_unstructured.F90
r688 r775 148 148 du_slow(:,ij,stage)=0. 149 149 END DO 150 !$OMP END DO 150 151 151 152 CALL compute_theta(mass_col,rhodz,theta_rhodz, theta) … … 156 157 CALL compute_pvort_only(rhodz,u,qv,qu) 157 158 CALL update_halo(transfer_edge, qu) 158 159 159 160 CALL compute_caldyn_slow_hydro(rhodz,theta,u, berni,hflux,du_slow(:,:,stage)) 160 161 CALL compute_coriolis(hflux,theta,qu, bufu1, drhodz(:,:,stage), &
Note: See TracChangeset
for help on using the changeset viewer.