Changeset 2090 for LMDZ5/trunk/libf


Ignore:
Timestamp:
Jul 12, 2014, 11:24:09 AM (10 years ago)
Author:
fhourdin
Message:

Ajout de la lecture de la clef ok_sync par getin dans physiq.F90
Adding ok_sync reading in physiq.F90

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ5/trunk/libf/phylmd/physiq.F90

    r2086 r2090  
    1111
    1212  USE ioipsl, only: histbeg, histvert, histdef, histend, histsync, &
    13        histwrite, ju2ymds, ymds2ju, ioget_year_len
     13       histwrite, ju2ymds, ymds2ju, ioget_year_len, getin
    1414  USE comgeomphy
    1515  USE phys_cal_mod
     
    710710  character*20 modname
    711711  character*80 abort_message
    712   logical ok_sync
     712  logical, save ::  ok_sync, ok_sync_omp
     713  !$OMP THREADPRIVATE(ok_sync)
    713714  real date0
    714715  integer idayref
     
    946947     END DO
    947948  END IF
    948   ok_sync=.false.
    949949
    950950  IF (debut) THEN
     
    12301230
    12311231     !$OMP MASTER
     1232! FH : if ok_sync=.true. , the time axis is written at each time step
     1233! in the output files. Only at the end in the opposite case
     1234     ok_sync_omp=.false.
     1235     CALL getin('ok_sync',ok_sync_omp)
    12321236     call phys_output_open(rlon,rlat,nCFMIP,tabijGCM, &
    12331237          iGCM,jGCM,lonGCM,latGCM, &
     
    12391243          flag_aerosol_strat, pdtphys, paprs, pphis,  &
    12401244          pplay, lmax_th, ptconv, ptconvth, ivap,  &
    1241           d_t, qx, d_qx, zmasse, ok_sync)
     1245          d_t, qx, d_qx, zmasse, ok_sync_omp)
    12421246     !$OMP END MASTER
    12431247     !$OMP BARRIER
     1248     ok_sync=ok_sync_omp
    12441249
    12451250     freq_outNMC(1) = ecrit_files(7)
Note: See TracChangeset for help on using the changeset viewer.