|
Last change
on this file since 2399 was
2399,
checked in by Ehouarn Millour, 9 years ago
|
|
Follow-up from commit 2395: get rid of rlon and rlat, longitude_deg and latitude_deg (from module geometry_mod) should be used instead. Longitudes and latitudes are no longer loaded from startphy.nc but inherited from dynamics (and compatibility with values in startphy.nc is checked). This will change bench results because of roundoffs differences between the two.
EM
|
-
Property copyright set to
Name of program: LMDZ
Creation date: 1984
Version: LMDZ5
License: CeCILL version 2
Holder: Laboratoire de m\'et\'eorologie dynamique, CNRS, UMR 8539
See the license file in the root directory
-
Property svn:eol-style set to
native
-
Property svn:keywords set to
Author Date Id Revision
|
|
File size:
498 bytes
|
| Line | |
|---|
| 1 | SUBROUTINE print_debug_phys (i,debug_lev,text) |
|---|
| 2 | |
|---|
| 3 | USE dimphy, ONLY: klev |
|---|
| 4 | USE phys_local_var_mod, ONLY: u_seri, v_seri, t_seri, q_seri, ql_seri |
|---|
| 5 | USE geometry_mod, ONLY: longitude_deg, latitude_deg |
|---|
| 6 | IMPLICIT NONE |
|---|
| 7 | integer i,debug_lev |
|---|
| 8 | CHARACTER*(*) text |
|---|
| 9 | |
|---|
| 10 | |
|---|
| 11 | integer k |
|---|
| 12 | |
|---|
| 13 | print*,'PLANTAGE POUR LE POINT i=',i,text |
|---|
| 14 | print*,'l u, v, T, q, ql' |
|---|
| 15 | DO k = 1, klev |
|---|
| 16 | write(*,'(i3,2f8.4,3f14.4,2e14.2)') k,longitude_deg(i),latitude_deg(i),u_seri(i,k),v_seri(i,k),t_seri(i,k),q_seri(i,k),ql_seri(i,k) |
|---|
| 17 | ENDDO |
|---|
| 18 | |
|---|
| 19 | RETURN |
|---|
| 20 | END |
|---|
Note: See
TracBrowser
for help on using the repository browser.
