Changeset 4478 for LMDZ6/trunk/libf/phylmd/screenc_mod.F90
- Timestamp:
- Mar 27, 2023, 4:25:12 PM (18 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/screenc_mod.F90
r3821 r4478 70 70 ! Variables locales 71 71 INTEGER :: i 72 REAL, dimension(klon) :: cdram, cdrah, cdran, zri1, gref,ycdragm 72 REAL, dimension(klon) :: cdram, cdrah, cdran, zri1, gref,ycdragm,zri_zero 73 73 ! 74 74 !------------------------------------------------------------------------- … … 89 89 speed, temp, q_zref, gref, & 90 90 psol, ts, qsurf, z0m, z0h, & 91 zri_zero,0, & 91 92 cdram, cdrah, zri1, pref) 92 93 DO i = 1, knon … … 177 178 ! Richardson at reference level 178 179 ! 179 CALL cdrag n_ri1(knon, nsrf, &180 CALL cdrag(knon, nsrf, & 180 181 speed, temp, q_zref, gref, & 181 182 psol, ts, qsurf, z0m, z0h, &
Note: See TracChangeset
for help on using the changeset viewer.