Changeset 2743 for trunk/LMDZ.TITAN/libf/phytitan/vdifc.F
- Timestamp:
- Jul 5, 2022, 11:56:27 PM (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LMDZ.TITAN/libf/phytitan/vdifc.F
r1668 r2743 12 12 use comcstfi_mod, only: g, r, cpp, rcp 13 13 use callkeys_mod, only: tracer,nosurf 14 use turb_mod, only: ustar 14 15 15 16 implicit none … … 203 204 zcdv(ig)=zcdv_true(ig)*sqrt(zu2) 204 205 zcdh(ig)=zcdh_true(ig)*sqrt(zu2) 206 ustar(ig)=sqrt(zcdv_true(ig))*sqrt(zu2) 205 207 ENDDO 206 208
Note: See TracChangeset
for help on using the changeset viewer.