Changeset 954 for codes/icosagcm/trunk/src/dynamics/caldyn_gcm.F90
- Timestamp:
- 07/15/19 12:29:31 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/trunk/src/dynamics/caldyn_gcm.F90
r953 r954 188 188 f_geopot, f_hflux, f_wflux, f_dps, f_dmass, f_dtheta_rhodz, f_du) 189 189 USE observable_mod 190 USE disvert_mod, ONLY : caldyn_eta, eta_mass 190 USE disvert_mod, ONLY : caldyn_eta, eta_mass, bp 191 191 USE trace 192 192 LOGICAL,INTENT(IN) :: write_out … … 319 319 wwuu=f_wwuu(ind) 320 320 dps=f_dps(ind) 321 CALL compute_caldyn_vert(u,theta,mass,convm, wflux,wwuu, dps, dtheta_rhodz(:,:,1), du )321 CALL compute_caldyn_vert(u,theta,mass,convm, wflux,wwuu, dps, dtheta_rhodz(:,:,1), du, bp) 322 322 END IF 323 323 ENDDO … … 348 348 wwuu=f_wwuu(ind) 349 349 dps=f_dps(ind) 350 CALL compute_caldyn_vert(u,theta,mass,convm, wflux,wwuu, dps, dtheta_rhodz, du )350 CALL compute_caldyn_vert(u,theta,mass,convm, wflux,wwuu, dps, dtheta_rhodz, du, bp) 351 351 END IF 352 352 ENDDO
Note: See TracChangeset
for help on using the changeset viewer.