Changeset 3355 for LMDZ6/branches/DYNAMICO-conv/libf/phylmd/physiq_mod.F90

Timestamp:

Jun 29, 2018, 11:12:44 AM (6 years ago)

Author:

Laurent Fairhead

Message:

Commiting variables initialisation as found by Yann
LF

File:

• LMDZ6/branches/DYNAMICO-conv/libf/phylmd/physiq_mod.F90 (modified) (5 diffs)

LMDZ6/branches/DYNAMICO-conv/libf/phylmd/physiq_mod.F90

@@ -1517 +1517 @@
             ENDDO
           ENDDO
+        ELSE
+          pbl_tke(:,:,is_ave) = 0. !ym missing init : maybe must be initialized in the same way that for klon_glo==1 ??
 !>jyg
        ENDIF
@@ -2238 +2240 @@
        !
        !-------gustiness calculation-------!
+       !ym : Warning gustiness non inialized for iflag_gusts=2 & iflag_gusts=3
+       gustiness=0  !ym missing init
+       
        IF (iflag_gusts==0) THEN
           gustiness(1:klon)=0
@@ -4065 +4070 @@
 
     IF (.not. ok_hines .and. ok_gwd_rando) then
+       ! ym missing init for east_gwstress & west_gwstress -> added in phys_local_var_mod
        CALL acama_GWD_rando(PHYS_TSTEP, pplay, latitude_deg, t_seri, u_seri, &
             v_seri, rot, zustr_gwd_front, zvstr_gwd_front, du_gwd_front, &
@@ -4727 +4733 @@
        !         write(97) u_seri,v_seri,t_seri,q_seri
        !         close(97)
-       !$OMP MASTER
+!       !$OMP MASTER
        IF (read_climoz >= 1) THEN
           IF (is_mpi_root) THEN
@@ -4735 +4741 @@
           DEALLOCATE(press_cen_climoz) ! pointer
        ENDIF
-       !$OMP END MASTER
+!       !$OMP END MASTER
 #ifdef CPP_XIOS
        IF (is_omp_master) CALL xios_context_finalize