Changeset 3348 for LMDZ6/branches/IPSLCM6.0.15/libf/phylmd/cosp
- Timestamp:
- Jun 26, 2018, 11:50:32 AM (6 years ago)
- Location:
- LMDZ6/branches/IPSLCM6.0.15/libf/phylmd/cosp
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/IPSLCM6.0.15/libf/phylmd/cosp/cosp_read_otputkeys.F90
r3270 r3348 282 282 close(10) 283 283 ENDIF 284 285 !$OMP BARRIER 284 286 285 287 CALL bcast(Lradar_sim) … … 365 367 CALL bcast(LprofSR) !TIBO 366 368 CALL bcast(Lproftemp) !TIBO 367 368 !$OMP BARRIER369 369 370 370 ! print*,' Cles sorties cosp :' … … 756 756 #ifdef CPP_XIOS 757 757 758 logical , save:: Lradar_sim,Llidar_sim,Lisccp_sim,Lmodis_sim,Lmisr_sim,Lrttov_sim, Lstats, &758 logical :: Lradar_sim,Llidar_sim,Lisccp_sim,Lmodis_sim,Lmisr_sim,Lrttov_sim, Lstats, & 759 759 Lalbisccp,Latb532,Lboxptopisccp,Lboxtauisccp,LcfadDbze94, & 760 760 LcfadLidarsr532,Lclcalipso2,Lclcalipso,Lclhcalipso,Lclisccp,Lcllcalipso, & … … 775 775 LprofSR,Lproftemp 776 776 777 !!$OMP THREADPRIVATE(Lradar_sim,Llidar_sim,Lisccp_sim,Lmodis_sim,Lmisr_sim,Lrttov_sim)778 !!$OMP THREADPRIVATE(Lalbisccp,Latb532,Lboxptopisccp,Lboxtauisccp,LcfadDbze94)779 !!$OMP THREADPRIVATE(LcfadLidarsr532,Lclcalipso2,Lclcalipso,Lclhcalipso,Lclisccp,Lcllcalipso)780 !!$OMP THREADPRIVATE(Lclmcalipso,Lcltcalipso,Lcltlidarradar,Lpctisccp,Ldbze94,Ltauisccp,Lcltisccp)781 !!$OMP THREADPRIVATE(Lclcalipsoliq,Lclcalipsoice,Lclcalipsoun)782 !!$OMP THREADPRIVATE(Lclcalipsotmp,Lclcalipsotmpliq,Lclcalipsotmpice,Lclcalipsotmpun)783 !!$OMP THREADPRIVATE(Lcltcalipsoliq,Lcltcalipsoice,Lcltcalipsoun)784 !!$OMP THREADPRIVATE(Lclhcalipsoliq,Lclhcalipsoice,Lclhcalipsoun)785 !!$OMP THREADPRIVATE(Lclmcalipsoliq,Lclmcalipsoice,Lclmcalipsoun)786 !!$OMP THREADPRIVATE(Lcllcalipsoliq,Lcllcalipsoice,Lcllcalipsoun)787 !!$OMP THREADPRIVATE(Ltoffset,LparasolRefl,LclMISR,Lmeantbisccp,Lmeantbclrisccp)788 !!$OMP THREADPRIVATE(Lfracout,LlidarBetaMol532,Ltbrttov)789 !!$OMP THREADPRIVATE(Lcltmodis,Lclwmodis,Lclimodis,Lclhmodis,Lclmmodis,Lcllmodis)790 !!$OMP THREADPRIVATE(Ltautmodis,Ltauwmodis,Ltauimodis,Ltautlogmodis)791 !!$OMP THREADPRIVATE(Ltauwlogmodis,Ltauilogmodis,Lreffclwmodis,Lreffclimodis,Lpctmodis,Llwpmodis)792 !!$OMP THREADPRIVATE(Liwpmodis,Lclmodis,Lcrimodis,Lcrlmodis,Lclopaquecalipso,Lclthincalipso)793 !!$OMP THREADPRIVATE(Lclzopaquecalipso,Lclcalipsoopaque,Lclcalipsothin,Lclcalipsozopaque,Lclcalipsoopacity)794 !!$OMP THREADPRIVATE(LprofSR,Lproftemp)795 796 777 character(len=32) :: out_list(N_OUT_LIST) 797 778 … … 1062 1043 1063 1044 ENDIF ! (is_master) 1045 1046 !$OMP BARRIER 1064 1047 1065 1048 CALL bcast(Lradar_sim) … … 1146 1129 CALL bcast(Lproftemp) !TIBO 1147 1130 1148 !$OMP BARRIER1149 1131 1150 1132 if (Lmodis_sim) Lisccp_sim = .true. -
LMDZ6/branches/IPSLCM6.0.15/libf/phylmd/cosp/phys_cosp.F90
r3335 r3348 408 408 CLOSE(10) 409 409 ENDIF 410 !$OMP BARRIER 411 410 412 CALL bcast(overlap) 411 413 CALL bcast(isccp_topheight) … … 440 442 CALL bcast(n2o) 441 443 CALL bcast(co) 442 !$OMP BARRIER443 444 END SUBROUTINE read_cosp_input 444 445
Note: See TracChangeset
for help on using the changeset viewer.