Changeset 3355 for LMDZ6/branches/DYNAMICO-conv/libf/phylmd/physiq_mod.F90
- Timestamp:
- Jun 29, 2018, 11:12:44 AM (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/DYNAMICO-conv/libf/phylmd/physiq_mod.F90
r3336 r3355 1517 1517 ENDDO 1518 1518 ENDDO 1519 ELSE 1520 pbl_tke(:,:,is_ave) = 0. !ym missing init : maybe must be initialized in the same way that for klon_glo==1 ?? 1519 1521 !>jyg 1520 1522 ENDIF … … 2238 2240 ! 2239 2241 !-------gustiness calculation-------! 2242 !ym : Warning gustiness non inialized for iflag_gusts=2 & iflag_gusts=3 2243 gustiness=0 !ym missing init 2244 2240 2245 IF (iflag_gusts==0) THEN 2241 2246 gustiness(1:klon)=0 … … 4065 4070 4066 4071 IF (.not. ok_hines .and. ok_gwd_rando) then 4072 ! ym missing init for east_gwstress & west_gwstress -> added in phys_local_var_mod 4067 4073 CALL acama_GWD_rando(PHYS_TSTEP, pplay, latitude_deg, t_seri, u_seri, & 4068 4074 v_seri, rot, zustr_gwd_front, zvstr_gwd_front, du_gwd_front, & … … 4727 4733 ! write(97) u_seri,v_seri,t_seri,q_seri 4728 4734 ! close(97) 4729 !$OMP MASTER4735 ! !$OMP MASTER 4730 4736 IF (read_climoz >= 1) THEN 4731 4737 IF (is_mpi_root) THEN … … 4735 4741 DEALLOCATE(press_cen_climoz) ! pointer 4736 4742 ENDIF 4737 !$OMP END MASTER4743 ! !$OMP END MASTER 4738 4744 #ifdef CPP_XIOS 4739 4745 IF (is_omp_master) CALL xios_context_finalize
Note: See TracChangeset
for help on using the changeset viewer.