Changeset 2586 for trunk/LMDZ.MARS/libf
- Timestamp:
- Nov 18, 2021, 11:39:59 AM (3 years ago)
- Location:
- trunk/LMDZ.MARS/libf/phymars
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
TabularUnified trunk/LMDZ.MARS/libf/phymars/convadj.F ¶
r2311 r2586 81 81 LOGICAL vtest(ngrid),down 82 82 logical,save :: firstcall=.true. 83 84 85 !$OMP THREADPRIVATE(ico2,A,B,firstcall) 83 86 84 87 ! for conservation test -
TabularUnified trunk/LMDZ.MARS/libf/phymars/nltecool.F ¶
r2448 r2586 114 114 115 115 logical firstcall 116 117 !$OMP THREADPRIVATE(firstcall,ef1,ef2,co2vmr,n2covmr,o3pvmr,pnb) 118 116 119 data firstcall/.true./ 117 120 save firstcall,ef1,ef2,co2vmr,n2covmr,o3pvmr,pnb -
TabularUnified trunk/LMDZ.MARS/libf/phymars/pbl_parameters.F ¶
r1393 r2586 77 77 REAL karman,nu 78 78 DATA karman,nu/.41,0.001/ 79 80 !$OMP THREADPRIVATE(karman,nu) 81 79 82 SAVE karman,nu 80 83 -
TabularUnified trunk/LMDZ.MARS/libf/phymars/read_dust_scenario.F90 ¶
r2584 r2586 8 8 use dust_param_mod, only: odpref, dustscaling_mode 9 9 use planete_h, only: year_day 10 USE mod_phys_lmdz_transfert_para, ONLY: bcast 10 11 implicit none 11 12 … … 80 81 filename="dust_tes_MY26.nc" 81 82 endif 83 84 85 !$OMP MASTER 82 86 83 87 ierr=nf90_open(trim(datadir)//"/"//trim(filename),NF90_NOWRITE,nid) … … 107 111 ierr=nf90_inquire_dimension(nid,londim,len=lonlen) 108 112 113 !$OMP END MASTER 114 115 call bcast(lonlen) 116 call bcast(latlen) 117 call bcast(timelen) 109 118 110 119 if (.not.allocated(tautes)) allocate(tautes(lonlen,latlen,timelen)) 111 120 if (.not.allocated(lat)) allocate(lat(latlen), lon(lonlen), time(timelen)) 121 122 !$OMP MASTER 112 123 113 124 ! "dustop" if loading visible extinction opacity … … 176 187 177 188 ierr=nf90_close(nid) 189 190 !$OMP END MASTER 191 192 call bcast(tautes) 193 call bcast(time) 194 call bcast(lat) 195 call bcast(lon) 178 196 179 197 endif ! of if (firstcall)
Note: See TracChangeset
for help on using the changeset viewer.