GCC Code Coverage Report


Directory: ./
File: dyn_phys/calfis_loc.f
Date: 2022-01-11 19:19:34
Exec Total Coverage
Lines: 0 2 0.0%
Branches: 0 0 -%

Line Branch Exec Source
1 !
2 ! $Id: calfis_loc.F 2604 2016-07-26 15:37:18Z emillour $
3 !
4 C
5 C
6 SUBROUTINE calfis_loc(lafin,
7 $ jD_cur, jH_cur,
8 $ pucov,
9 $ pvcov,
10 $ pteta,
11 $ pq,
12 $ pmasse,
13 $ pps,
14 $ pp,
15 $ ppk,
16 $ pphis,
17 $ pphi,
18 $ pducov,
19 $ pdvcov,
20 $ pdteta,
21 $ pdq,
22 $ flxw,
23 $ pdufi,
24 $ pdvfi,
25 $ pdhfi,
26 $ pdqfi,
27 $ pdpsfi)
28 ! If using physics
29 c
30 c Auteur : P. Le Van, F. Hourdin
31 c .........
32 USE dimphy
33 USE mod_phys_lmdz_mpi_data, mpi_root_xx=>mpi_master
34 USE mod_phys_lmdz_omp_data, ONLY: klon_omp, klon_omp_begin
35 USE mod_const_mpi, ONLY: COMM_LMDZ
36 USE mod_interface_dyn_phys
37 USE IOPHY
38 USE infotrac, ONLY: nqtot, niadv, tname
39 USE control_mod, ONLY: planet_type, nsplit_phys
40 USE callphysiq_mod, ONLY: call_physiq
41 USE comvert_mod, ONLY: preff, presnivs
42 USE comconst_mod, ONLY: cpp, daysec, dtphys, dtvr, kappa, pi
43
44 ! of #ifdef CPP_PARA
45 END
46