Ignore:
Timestamp:
Jul 23, 2024, 8:22:55 AM (7 months ago)
Author:
abarral
Message:

Handle DEBUG_IO in lmdz_cppkeys_wrapper.F90
Transform some files .F -> .[fF]90
[ne compile pas à cause de writefield_u non défini - en attente de réponse Laurent]

Location:
LMDZ6/branches/Amaury_dev/libf/phylmd/Dust
Files:
21 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/coarsemission.F

    r5099 r5101  
    2828      USE indice_sol_mod
    2929      USE infotrac
    30       USE dustemission_mod,  ONLY : dustemission
    31 !      USE phytracr_spl_mod, ONLY : nbreg_dust, nbreg_ind, nbreg_bb
     30      USE dustemission_mod,  ONLY: dustemission
     31!      USE phytracr_spl_mod, ONLY: nbreg_dust, nbreg_ind, nbreg_bb
    3232      IMPLICIT NONE
    3333

  • LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/condsurfc.f90

    r5099 r5101  
    44        lmt_omnat)
    55  USE dimphy
    6   USE netcdf, ONLY : nf90_close, nf90_noerr, nf90_inq_varid, nf90_open, nf90_nowrite, nf90_get_var
     6  USE netcdf, ONLY: nf90_close, nf90_noerr, nf90_inq_varid, nf90_open, nf90_nowrite, nf90_get_var
    77  IMPLICIT none
    88
    … …  
    3838    write(6, *)' Pb d''ouverture du fichier limitbc.nc'
    3939    write(6, *)' ierr = ', ierr
    40     call exit(1)
     40    CALL exit(1)
    4141  endif
    4242

  • LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/condsurfc_new.f90

    r5099 r5101  
    66  USE mod_phys_lmdz_para
    77  USE dimphy
    8   USE netcdf, ONLY : nf90_get_var, nf90_close, nf90_noerr, nf90_inq_varid, nf90_open, nf90_nowrite
     8  USE netcdf, ONLY: nf90_get_var, nf90_close, nf90_noerr, nf90_inq_varid, nf90_open, nf90_nowrite
    99  IMPLICIT none
    1010
    … …  
    6161      write(6, *)' Pb d''ouverture du fichier limitbc.nc'
    6262      write(6, *)' ierr = ', ierr
    63       call exit(1)
     63      CALL exit(1)
    6464    endif
    6565
    … …  
    192192  !$OMP END MASTER
    193193  !$OMP BARRIER
    194   call scatter(lmt_bcff_glo, lmt_bcff)
    195   call scatter(lmt_bcnff_glo, lmt_bcnff)
    196   call scatter(lmt_bcbbl_glo, lmt_bcbbl)
    197   call scatter(lmt_bcbbh_glo, lmt_bcbbh)
    198   call scatter(lmt_bcba_glo, lmt_bcba)
    199   call scatter(lmt_omff_glo, lmt_omff)
    200   call scatter(lmt_omnff_glo, lmt_omnff)
    201   call scatter(lmt_ombbl_glo, lmt_ombbl)
    202   call scatter(lmt_ombbh_glo, lmt_ombbh)
    203   call scatter(lmt_omba_glo, lmt_omba)
    204   call scatter(lmt_terp_glo, lmt_terp)
    205   call scatter(lmt_omnat_glo, lmt_omnat)
     194  CALL scatter(lmt_bcff_glo, lmt_bcff)
     195  CALL scatter(lmt_bcnff_glo, lmt_bcnff)
     196  CALL scatter(lmt_bcbbl_glo, lmt_bcbbl)
     197  CALL scatter(lmt_bcbbh_glo, lmt_bcbbh)
     198  CALL scatter(lmt_bcba_glo, lmt_bcba)
     199  CALL scatter(lmt_omff_glo, lmt_omff)
     200  CALL scatter(lmt_omnff_glo, lmt_omnff)
     201  CALL scatter(lmt_ombbl_glo, lmt_ombbl)
     202  CALL scatter(lmt_ombbh_glo, lmt_ombbh)
     203  CALL scatter(lmt_omba_glo, lmt_omba)
     204  CALL scatter(lmt_terp_glo, lmt_terp)
     205  CALL scatter(lmt_omnat_glo, lmt_omnat)
    206206
    207207  RETURN

  • LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/condsurfs.f90

    r5099 r5101  
    44        lmt_dmsbio, lmt_h2sbio, lmt_dms, lmt_dmsconc)
    55  USE dimphy
    6   USE netcdf, ONLY : nf90_close, nf90_noerr, nf90_inq_varid, nf90_open, &
     6  USE netcdf, ONLY: nf90_close, nf90_noerr, nf90_inq_varid, nf90_open, &
    77          nf90_nowrite, nf90_get_var
    88  IMPLICIT none
    … …  
    3939    write(6, *)' Pb d''ouverture du fichier limitsoufre.nc'
    4040    write(6, *)' ierr = ', ierr
    41     call exit(1)
     41    CALL exit(1)
    4242  endif
    4343

  • LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/condsurfs_new.f90

    r5099 r5101  
    99  USE mod_phys_lmdz_para
    1010  USE dimphy
    11   USE netcdf, ONLY : nf90_get_var, nf90_inq_varid, nf90_close, nf90_noerr, nf90_open, nf90_nowrite
     11  USE netcdf, ONLY: nf90_get_var, nf90_inq_varid, nf90_close, nf90_noerr, nf90_open, nf90_nowrite
    1212  IMPLICIT none
    1313
    … …  
    6464      write(6, *)' Pb d''ouverture du fichier sulphur_emissions_antro'
    6565      write(6, *)' ierr = ', ierr
    66       call exit(1)
     66      CALL exit(1)
    6767    endif
    6868
    … …  
    133133      write(6, *)' Pb d''ouverture du fichier sulphur_emissions_nat'
    134134      write(6, *)' ierr = ', ierr
    135       call exit(1)
     135      CALL exit(1)
    136136    endif
    137137
    … …  
    188188      write(6, *)' Pb d''ouverture du fichier sulphur_emissions_volc'
    189189      write(6, *)' ierr = ', ierr
    190       call exit(1)
     190      CALL exit(1)
    191191    endif
    192192
    … …  
    243243  !$OMP END MASTER
    244244  !$OMP BARRIER
    245   call scatter(lmt_so2b_glo, lmt_so2b)
    246   call scatter(lmt_so2h_glo, lmt_so2h)
    247   call scatter(lmt_so2bb_h_glo, lmt_so2bb_h)
    248   call scatter(lmt_so2bb_l_glo, lmt_so2bb_l)
    249   call scatter(lmt_so2ba_glo, lmt_so2ba)
    250   call scatter(lmt_so2nff_glo, lmt_so2nff)
    251   call scatter(lmt_dmsbio_glo, lmt_dmsbio)
    252   call scatter(lmt_h2sbio_glo, lmt_h2sbio)
    253   call scatter(lmt_dmsconc_glo, lmt_dmsconc)
    254   call scatter(lmt_dms_glo, lmt_dms)
    255   call scatter(lmt_so2volc_cont_glo, lmt_so2volc_cont)
    256   call scatter(lmt_altvolc_cont_glo, lmt_altvolc_cont)
    257   call scatter(lmt_so2volc_expl_glo, lmt_so2volc_expl)
    258   call scatter(lmt_altvolc_expl_glo, lmt_altvolc_expl)
     245  CALL scatter(lmt_so2b_glo, lmt_so2b)
     246  CALL scatter(lmt_so2h_glo, lmt_so2h)
     247  CALL scatter(lmt_so2bb_h_glo, lmt_so2bb_h)
     248  CALL scatter(lmt_so2bb_l_glo, lmt_so2bb_l)
     249  CALL scatter(lmt_so2ba_glo, lmt_so2ba)
     250  CALL scatter(lmt_so2nff_glo, lmt_so2nff)
     251  CALL scatter(lmt_dmsbio_glo, lmt_dmsbio)
     252  CALL scatter(lmt_h2sbio_glo, lmt_h2sbio)
     253  CALL scatter(lmt_dmsconc_glo, lmt_dmsconc)
     254  CALL scatter(lmt_dms_glo, lmt_dms)
     255  CALL scatter(lmt_so2volc_cont_glo, lmt_so2volc_cont)
     256  CALL scatter(lmt_altvolc_cont_glo, lmt_altvolc_cont)
     257  CALL scatter(lmt_so2volc_expl_glo, lmt_so2volc_expl)
     258  CALL scatter(lmt_altvolc_expl_glo, lmt_altvolc_expl)
    259259
    260260  RETURN

  • LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/dustemission_mod.F90

    r5099 r5101  
    223223
    224224  IF( debutphy ) THEN 
    225 !       call gather(maskdust,maskdust_glo)
     225!       CALL gather(maskdust,maskdust_glo)
    226226!     !$OMP MASTER
    227227!     IF (is_mpi_root .AND. is_omp_root) THEN
    … …  
    349349
    350350  if (sizedustmin>sizeacclow .or. sizedustmax<sizescohigh) then
    351    call abort_gcm('adaptdustemission', 'Dust range problem',1)
     351   CALL abort_gcm('adaptdustemission', 'Dust range problem',1)
    352352  endif
    353353  print *,'FINE DUST BIN: tuning EMISSION factor= ',tuningfactorfine
    … …  
    393393!  allocate(itvmean_glo(klon_glo,nbins))
    394394!  ALLOCATE(emisbinlocalmean2_glo(klon_glo,nbins))
    395 !  call gather(itv2,itv2_glo)
    396 !  call gather(itvmean,itvmean_glo)
     395!  CALL gather(itv2,itv2_glo)
     396!  CALL gather(itvmean,itvmean_glo)
    397397!!$OMP MASTER
    398398!  IF (is_mpi_root .AND. is_omp_root) THEN
    … …  
    486486   enddo
    487487   counter1=0
    488 !   call gather(emisbinlocalmean2,emisbinlocalmean2_glo)
     488!   CALL gather(emisbinlocalmean2,emisbinlocalmean2_glo)
    489489!!$OMP MASTER
    490490!   IF (is_mpi_root .AND. is_omp_root) THEN
    … …  
    747747!$OMP BARRIER
    748748!print *,'JEOK10',mpi_rank,omp_rank
    749   call bcast(solspe)
     749  CALL bcast(solspe)
    750750! Calcul de la distribution en taille des particules de Dust
    751751! Elle depend du nombre de classe des particules nclass.
    … …  
    951951! DO nb=1,nbinsHR
    952952!     vdHR(nb)=vdout(nb)
    953 !!  WRITE(18,*),binsHR(nb),vdHR(nb)
     953!!  WRITE(18,*) binsHR(nb),vdHR(nb)
    954954!  END DO
    955955
    … …  
    10831083      DO k=1,ndistb
    10841084        DO nb=1,nbins
    1085             write(15001,*),k,nb,massfrac(k,nb)
     1085            write(15001,*) k,nb,massfrac(k,nb)
    10861086        ENDDO
    10871087      ENDDO
    … …  
    13841384!      print*,'ustarsalt = ',ustarsalt,'dsmin=',dsmin,'dsmax=',dsmax
    13851385! dichotomy
    1386          call def_dichotomy(sizeclass,nclass,1,ncl,dsmin,ideb)
     1386         CALL def_dichotomy(sizeclass,nclass,1,ncl,dsmin,ideb)
    13871387   !      print*,'ideb = ',ideb
    1388          call def_dichotomy(sizeclass,nclass,ideb,ncl,dsmax,ifin)
     1388         CALL def_dichotomy(sizeclass,nclass,ideb,ncl,dsmax,ifin)
    13891389   !      print*,'ifin = ',ifin
    13901390! readaptation of large sizes particles

  • LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/finemission.F

    r5082 r5101  
    1414      USE indice_sol_mod
    1515      USE infotrac
    16 !      USE phytracr_spl_mod, ONLY : nbreg_dust, nbreg_ind, nbreg_bb
     16!      USE phytracr_spl_mod, ONLY: nbreg_dust, nbreg_ind, nbreg_bb
    1717      IMPLICIT NONE
    1818

  • LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/lsc_scav_orig.F90

    r5099 r5101  
    99  USE mod_phys_lmdz_para
    1010  USE traclmdz_mod
    11   USE infotrac,ONLY : nbtr
     11  USE infotrac,ONLY: nbtr
    1212  USE iophy
    1313  USE lmdz_yomcst
    … …  
    9797
    9898!  inscav_fisrt=.true.
    99 !  call getin('inscav_fisrt',inscav_fisrt)
     99!  CALL getin('inscav_fisrt',inscav_fisrt)
    100100!  if(inscav_fisrt) then
    101101!   print*,'beta from fisrtilp.F90, beta = (z_cond - z_oliq)/z_cond, inscav_fisrt=',inscav_fisrt

  • LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/lsc_scav_spl.F90

    r5099 r5101  
    1111  USE mod_phys_lmdz_para
    1212  USE traclmdz_mod
    13   USE infotrac,ONLY : nbtr
     13  USE infotrac,ONLY: nbtr
    1414  USE iophy
    1515  USE lmdz_yomcst
    … …  
    107107
    108108!  inscav_fisrt=.true.
    109 !  call getin('inscav_fisrt',inscav_fisrt)
     109!  CALL getin('inscav_fisrt',inscav_fisrt)
    110110!  if(inscav_fisrt) then
    111111!   print*,'beta from fisrtilp.F90, beta = (z_cond - z_oliq)/z_cond, inscav_fisrt=',inscav_fisrt

  • LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/neutral.F

    r5082 r5101  
    5252                f1 = (1. + phi_inv) / 2.
    5353                f2 = (1. + phi_inv_sq)/2.
    54 c following to avoid numerical overruns. recall tan(90deg)=infinity
     54c following to avoid numerical overruns. reCALL tan(90deg)=infinity
    5555                dum1 = min (1.e24, phi_inv)
    5656                f3 = atan(dum1)

  • LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/phys_output_write_spl_mod.F90

    r5099 r5101  
    1010  USE time_phylmdz_mod, ONLY: day_step_phy, start_time, itau_phy
    1111
    12   USE phytracr_spl_mod, ONLY : ok_chimeredust, id_prec, id_fine, id_coss, &
     12  USE phytracr_spl_mod, ONLY: ok_chimeredust, id_prec, id_fine, id_coss, &
    1313       id_codu, id_scdu , &
    1414       d_tr_cl, d_tr_th, d_tr_cv, d_tr_lessi_impa, &
    … …  
    6868       flux_sparam_sscoa,u10m_ss,v10m_ss
    6969
    70   USE dustemission_mod, ONLY : m1dflux, m2dflux, m3dflux
    71 
    72 !  USE phytrac_mod, ONLY : d_tr_cl, d_tr_th, d_tr_cv, d_tr_lessi_impa, &
     70  USE dustemission_mod, ONLY: m1dflux, m2dflux, m3dflux
     71
     72!  USE phytrac_mod, ONLY: d_tr_cl, d_tr_th, d_tr_cv, d_tr_lessi_impa, &
    7373!       d_tr_lessi_nucl, d_tr_insc, d_tr_bcscav, d_tr_evapls, d_tr_ls,  &
    7474!       d_tr_trsp, d_tr_sscav, d_tr_sat, d_tr_uscav
    … …  
    394394    USE lmdz_xios, ONLY: xios_update_calendar, using_xios
    395395    USE wxios, ONLY: wxios_closedef, missing_val_xios => missing_val
    396     USE phys_cal_mod, ONLY : mth_len
     396    USE phys_cal_mod, ONLY: mth_len
    397397    USE lmdz_yomcst
    398398
    … …  
    466466         IF (vars_defined) THEN
    467467            IF (prt_level >= 10) THEN
    468                write(lunout,*)"phys_output_write: call xios_update_calendar, itau_w=",itau_w
     468               write(lunout,*)"phys_output_write: CALL xios_update_calendar, itau_w=",itau_w
    469469            ENDIF
    470470!           CALL xios_update_calendar(itau_w)

  • LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/phytracr_spl_mod.F90

    r5099 r5101  
    424424  SUBROUTINE phytracr_spl_out_init()
    425425    !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
    426     !AS : This subroutine centralises the ALLOCATE needed for the 1st call of
     426    !AS : This subroutine centralises the ALLOCATE needed for the 1st CALL of
    427427    !     phys_output_write_spl in physiq
    428428
    429429    USE dimphy
    430     USE infotrac_phy, ONLY : nbtr
    431     USE dustemission_mod, ONLY : dustemis_out_init
     430    USE infotrac_phy, ONLY: nbtr
     431    USE dustemission_mod, ONLY: dustemis_out_init
    432432
    433433    ! pour les variables m[1-3]dflux
    … …  
    699699      fileregionsdimsbb = 'regions_bb_meta'
    700700      fileregionsdimswstar = 'regions_pwstarwake_meta'
    701       call  readregionsdims2_spl(nbreg_ind, fileregionsdimsind)
    702       call  readregionsdims2_spl(nbreg_dust, fileregionsdimsdust)
    703       call  readregionsdims2_spl(nbreg_bb, fileregionsdimsbb)
    704       call  readregionsdims2_spl(nbreg_wstardust, fileregionsdimswstar)
     701      CALL  readregionsdims2_spl(nbreg_ind, fileregionsdimsind)
     702      CALL  readregionsdims2_spl(nbreg_dust, fileregionsdimsdust)
     703      CALL  readregionsdims2_spl(nbreg_bb, fileregionsdimsbb)
     704      CALL  readregionsdims2_spl(nbreg_wstardust, fileregionsdimswstar)
    705705    ENDIF ! ASSIM
    706706    ! fin debranchage
    … …  
    792792
    793793    USE mod_phys_lmdz_transfert_para
    794     USE lmdz_thermcell_dq, ONLY : thermcell_dq
    795     USE phys_cal_mod, only : jD_1jan, year_len, mth_len, days_elapsed, jh_1jan, year_cur, &
     794    USE lmdz_thermcell_dq, ONLY: thermcell_dq
     795    USE phys_cal_mod, ONLY: jD_1jan, year_len, mth_len, days_elapsed, jh_1jan, year_cur, &
    796796            mth_cur, phys_cal_update
    797797
    … …  
    806806    ! Remarques en vrac:
    807807    ! ------------------
    808     ! 1/ le call phytrac se fait avec nqmax-2 donc nous avons bien
     808    ! 1/ le CALL phytrac se fait avec nqmax-2 donc nous avons bien
    809809    ! les vrais traceurs (nbtr) dans phytrac (pas la vapeur ni eau liquide)
    810810    !! AS : nqmax-2 devrait etre nqmax-3 apres introducton de H2Oi ;
    … …  
    12311231         itr = itr+1
    12321232         write(str2,'(i2.2)') itrr
    1233          call iophys_ecrit('TRA'//str2,klev,'SOURCE','',tr_seri(:,:,itr))
     1233         CALL iophys_ecrit('TRA'//str2,klev,'SOURCE','',tr_seri(:,:,itr))
    12341234      enddo
    12351235#endif
    … …  
    12971297    !AS: La ligne suivante fait planter a l'execution : lmt_so2ff_l pas initialise
    12981298    !  print *,'lmt_so2ff_l AVANT' , MINVAL(lmt_so2ff_l), MAXVAL(lmt_so2ff_l)
    1299     call read_newemissions(ijulday, jH_cur, edgar, flag_dms, debutphy, & !I
     1299    CALL read_newemissions(ijulday, jH_cur, edgar, flag_dms, debutphy, & !I
    13001300            pdtphys, lafin, nbjour, pctsrf, &       !I
    13011301            t_seri, rlat, rlon, &                         !I
    … …  
    13961396      if (ok_chimeredust) then
    13971397        if (.not.(id_scdu>0 .and. id_codu>0 .and. id_fine>0)) then
    1398           call abort_gcm('phytracr_mod', 'pb in ok_chimdust 0', 1)
     1398          CALL abort_gcm('phytracr_mod', 'pb in ok_chimdust 0', 1)
    13991399        endif
    14001400      else
    14011401        if (id_scdu>0) then
    1402           call abort_gcm('phytracr_mod', 'pb in ok_chimdust 1 SCDU', 1)
     1402          CALL abort_gcm('phytracr_mod', 'pb in ok_chimdust 1 SCDU', 1)
    14031403        endif
    14041404        if ((id_codu <= 0) .or. (id_fine<=0)) then
    1405           call abort_gcm('phytracr_mod', 'pb in ok_chimdust 1', 1)
     1405          CALL abort_gcm('phytracr_mod', 'pb in ok_chimdust 1', 1)
    14061406        endif
    14071407      endif
    … …  
    16601660      !Config
    16611661      iflag_lscav_omp = 4
    1662       call getin('iflag_lscav', iflag_lscav_omp)
     1662      CALL getin('iflag_lscav', iflag_lscav_omp)
    16631663      iflag_lscav = iflag_lscav_omp
    16641664      ! initialiation for time computation
    … …  
    18261826        c_FullName1 = 'regions_dustacc'
    18271827        !c_FullName1='regions_dust'
    1828         call readregions_spl(iregion_dust, c_FullName1)
     1828        CALL readregions_spl(iregion_dust, c_FullName1)
    18291829        c_FullName1 = 'regions_ind'
    1830         call readregions_spl(iregion_ind, c_FullName1)
     1830        CALL readregions_spl(iregion_ind, c_FullName1)
    18311831        c_FullName1 = 'regions_bb'
    1832         call readregions_spl(iregion_bb, c_FullName1)
     1832        CALL readregions_spl(iregion_bb, c_FullName1)
    18331833        c_FullName1 = 'regions_pwstarwake'
    1834         call readregions_spl(iregion_wstardust, c_FullName1)
     1834        CALL readregions_spl(iregion_wstardust, c_FullName1)
    18351835
    18361836        !$OMP MASTER
    … …  
    19441944        aux_var2(i) = pctsrf(i, is_oce)
    19451945      enddo
    1946       call gather(aux_var2, auxklon_glo)
     1946      CALL gather(aux_var2, auxklon_glo)
    19471947      !$OMP MASTER
    19481948      IF (is_mpi_root .AND. is_omp_root) THEN
    … …  
    19571957        aux_var2(i) = pctsrf(i, is_sic)
    19581958      enddo
    1959       call gather(aux_var2, auxklon_glo)
     1959      CALL gather(aux_var2, auxklon_glo)
    19601960      !$OMP MASTER
    19611961      IF (is_mpi_root .AND. is_omp_root) THEN
    … …  
    19701970        aux_var2(i) = pctsrf(i, is_ter)
    19711971      enddo
    1972       call gather(aux_var2, auxklon_glo)
     1972      CALL gather(aux_var2, auxklon_glo)
    19731973      !$OMP MASTER
    19741974      IF (is_mpi_root .AND. is_omp_root) THEN
    … …  
    19831983        aux_var2(i) = pctsrf(i, is_lic)
    19841984      enddo
    1985       call gather(aux_var2, auxklon_glo)
     1985      CALL gather(aux_var2, auxklon_glo)
    19861986      !$OMP MASTER
    19871987      IF (is_mpi_root .AND. is_omp_root) THEN
    … …  
    20682068      do itr=1,nbtr
    20692069         write(str2,'(i2.2)') itr
    2070          call iophys_ecrit('sav'//str2,1,'SOURCE','',source_tr(:,itr))
    2071          call iophys_ecrit('fav'//str2,1,'SOURCE','',source_tr(:,itr))
     2070         CALL iophys_ecrit('sav'//str2,1,'SOURCE','',source_tr(:,itr))
     2071         CALL iophys_ecrit('fav'//str2,1,'SOURCE','',source_tr(:,itr))
    20722072      enddo
    20732073      do itr=1,nbtr
    20742074         write(str2,'(i2.2)') itr
    2075          call iophys_ecrit('TRB'//str2,klev,'SOURCE','',tr_seri(:,:,itr))
     2075         CALL iophys_ecrit('TRB'//str2,klev,'SOURCE','',tr_seri(:,:,itr))
    20762076      enddo
    20772077#endif
    … …  
    21012101      do itr=1,nbtr
    21022102         write(str2,'(i2.2)') itr
    2103          call iophys_ecrit('sap'//str2,1,'SOURCE','',source_tr(:,itr))
    2104          call iophys_ecrit('fap'//str2,1,'SOURCE','',source_tr(:,itr))
     2103         CALL iophys_ecrit('sap'//str2,1,'SOURCE','',source_tr(:,itr))
     2104         CALL iophys_ecrit('fap'//str2,1,'SOURCE','',source_tr(:,itr))
    21052105      enddo
    21062106#endif
    … …  
    21242124#ifdef IOPHYS_DUST
    21252125      print *,'INPUT TO PRECUREMISSION'
    2126          call iophys_ecrit('ftsol',4,'ftsol','',ftsol)
    2127          call iophys_ecrit('u10m_ec',1,'u10m_ec','',u10m_ec)
    2128          call iophys_ecrit('v10m_ec',1,'v10m_ec','',v10m_ec)
    2129          call iophys_ecrit('pctsrf',4,'pctsrf','',pctsrf)
    2130          call iophys_ecrit('u_seri',klev,'u_seri','',u_seri)
    2131          call iophys_ecrit('v_seri',klev,'v_seri','',v_seri)
    2132          call iophys_ecrit('paprs',klev,'paprs','',paprs)
    2133          call iophys_ecrit('pplay',klev,'pplay','',pplay)
    2134          call iophys_ecrit('cdragh',1,'cdragh','',cdragh)
    2135          call iophys_ecrit('cdragm',1,'cdragm','',cdragm)
    2136          call iophys_ecrit('t_seri',klev,'t_seri','',t_seri)
    2137          call iophys_ecrit('q_seri',klev,'q_seri','',q_seri)
    2138          call iophys_ecrit('tsol',1,'tsol','',tsol)
     2126         CALL iophys_ecrit('ftsol',4,'ftsol','',ftsol)
     2127         CALL iophys_ecrit('u10m_ec',1,'u10m_ec','',u10m_ec)
     2128         CALL iophys_ecrit('v10m_ec',1,'v10m_ec','',v10m_ec)
     2129         CALL iophys_ecrit('pctsrf',4,'pctsrf','',pctsrf)
     2130         CALL iophys_ecrit('u_seri',klev,'u_seri','',u_seri)
     2131         CALL iophys_ecrit('v_seri',klev,'v_seri','',v_seri)
     2132         CALL iophys_ecrit('paprs',klev,'paprs','',paprs)
     2133         CALL iophys_ecrit('pplay',klev,'pplay','',pplay)
     2134         CALL iophys_ecrit('cdragh',1,'cdragh','',cdragh)
     2135         CALL iophys_ecrit('cdragm',1,'cdragm','',cdragm)
     2136         CALL iophys_ecrit('t_seri',klev,'t_seri','',t_seri)
     2137         CALL iophys_ecrit('q_seri',klev,'q_seri','',q_seri)
     2138         CALL iophys_ecrit('tsol',1,'tsol','',tsol)
    21392139         print*,'fracso2emis,frach2sofso2,bateau',fracso2emis,frach2sofso2,bateau
    21402140         print*,'kminbc,kmaxbc,pdtphys',kminbc,kmaxbc,pdtphys
    … …  
    21422142         print*,'iregion_ind,iregion_bb,nbreg_ind, nbreg_bb',iregion_ind,iregion_bb,nbreg_ind, nbreg_bb
    21432143         print*,'id_prec,id_fine',id_prec,id_fine
    2144          call iophys_ecrit('zdz',klev,'zdz','',zdz)
    2145          call iophys_ecrit('zalt',klev,'zalt','',zalt)
    2146          call iophys_ecrit('lmt_so2ff_l',1,'lmt_so2ff_l','',lmt_so2ff_l)
    2147          call iophys_ecrit('lmt_so2ff_h',1,'lmt_so2ff_h','',lmt_so2ff_h)
    2148          call iophys_ecrit('lmt_so2nff',1,'lmt_so2nff','',lmt_so2nff)
    2149          call iophys_ecrit('lmt_so2ba',1,'lmt_so2ba','',lmt_so2ba)
    2150          call iophys_ecrit('lmt_so2bb_l',1,'lmt_so2bb_l','',lmt_so2bb_l)
    2151          call iophys_ecrit('lmt_so2bb_h',1,'lmt_so2bb_h','',lmt_so2bb_h)
    2152          call iophys_ecrit('lmt_so2volc_cont',1,'lmt_so2volc_cont','',lmt_so2volc_cont)
    2153          call iophys_ecrit('lmt_altvolc_cont',1,'lmt_altvolc_cont','',lmt_altvolc_cont)
    2154          call iophys_ecrit('lmt_so2volc_expl',1,'lmt_so2volc_expl','',lmt_so2volc_expl)
    2155          call iophys_ecrit('lmt_altvolc_expl',1,'lmt_altvolc_expl','',lmt_altvolc_expl)
    2156          call iophys_ecrit('lmt_dmsbio',1,'lmt_dmsbio','',lmt_dmsbio)
    2157          call iophys_ecrit('lmt_h2sbio',1,'lmt_h2sbio','',lmt_h2sbio)
    2158          call iophys_ecrit('lmt_dmsconc',1,'lmt_dmsconc','',lmt_dmsconc)
    2159          call iophys_ecrit('lmt_dms',1,'lmt_dms','',lmt_dms)
    2160          call iophys_ecrit('flux_sparam_ind',1,'flux_sparam_ind','',flux_sparam_ind)
    2161          call iophys_ecrit('flux_sparam_bb',1,'flux_sparam_bb','',flux_sparam_bb)
     2144         CALL iophys_ecrit('zdz',klev,'zdz','',zdz)
     2145         CALL iophys_ecrit('zalt',klev,'zalt','',zalt)
     2146         CALL iophys_ecrit('lmt_so2ff_l',1,'lmt_so2ff_l','',lmt_so2ff_l)
     2147         CALL iophys_ecrit('lmt_so2ff_h',1,'lmt_so2ff_h','',lmt_so2ff_h)
     2148         CALL iophys_ecrit('lmt_so2nff',1,'lmt_so2nff','',lmt_so2nff)
     2149         CALL iophys_ecrit('lmt_so2ba',1,'lmt_so2ba','',lmt_so2ba)
     2150         CALL iophys_ecrit('lmt_so2bb_l',1,'lmt_so2bb_l','',lmt_so2bb_l)
     2151         CALL iophys_ecrit('lmt_so2bb_h',1,'lmt_so2bb_h','',lmt_so2bb_h)
     2152         CALL iophys_ecrit('lmt_so2volc_cont',1,'lmt_so2volc_cont','',lmt_so2volc_cont)
     2153         CALL iophys_ecrit('lmt_altvolc_cont',1,'lmt_altvolc_cont','',lmt_altvolc_cont)
     2154         CALL iophys_ecrit('lmt_so2volc_expl',1,'lmt_so2volc_expl','',lmt_so2volc_expl)
     2155         CALL iophys_ecrit('lmt_altvolc_expl',1,'lmt_altvolc_expl','',lmt_altvolc_expl)
     2156         CALL iophys_ecrit('lmt_dmsbio',1,'lmt_dmsbio','',lmt_dmsbio)
     2157         CALL iophys_ecrit('lmt_h2sbio',1,'lmt_h2sbio','',lmt_h2sbio)
     2158         CALL iophys_ecrit('lmt_dmsconc',1,'lmt_dmsconc','',lmt_dmsconc)
     2159         CALL iophys_ecrit('lmt_dms',1,'lmt_dms','',lmt_dms)
     2160         CALL iophys_ecrit('flux_sparam_ind',1,'flux_sparam_ind','',flux_sparam_ind)
     2161         CALL iophys_ecrit('flux_sparam_bb',1,'flux_sparam_bb','',flux_sparam_bb)
    21622162#endif
    21632163
    … …  
    21982198      do itr=1,nbtr
    21992199         write(str2,'(i2.2)') itr
    2200          call iophys_ecrit('tpr'//str2,1,'SOURCE','',source_tr(:,itr))
    2201          call iophys_ecrit('fpr'//str2,1,'SOURCE','',flux_tr(:,itr))
     2200         CALL iophys_ecrit('tpr'//str2,1,'SOURCE','',source_tr(:,itr))
     2201         CALL iophys_ecrit('fpr'//str2,1,'SOURCE','',flux_tr(:,itr))
    22022202      enddo
    22032203#endif
    … …  
    22422242      do itr=1,nbtr
    22432243         write(str2,'(i2.2)') itr
    2244          call iophys_ecrit('t'//str2,1,'SOURCE','',source_tr(:,itr))
    2245          call iophys_ecrit('f'//str2,1,'SOURCE','',flux_tr(:,itr))
     2244         CALL iophys_ecrit('t'//str2,1,'SOURCE','',source_tr(:,itr))
     2245         CALL iophys_ecrit('f'//str2,1,'SOURCE','',flux_tr(:,itr))
    22462246      enddo
    22472247#endif
    … …  
    22982298      do itr=1,nbtr
    22992299         write(str2,'(i2.2)') itr
    2300          call iophys_ecrit('TRC'//str2,klev,'SOURCE','',tr_seri(:,:,itr))
     2300         CALL iophys_ecrit('TRC'//str2,klev,'SOURCE','',tr_seri(:,:,itr))
    23012301      enddo
    23022302#endif
    … …  
    23382338      do itr=1,nbtr
    23392339         write(str2,'(i2.2)') itr
    2340          call iophys_ecrit('TRD'//str2,klev,'SOURCE','',tr_seri(:,:,itr))
     2340         CALL iophys_ecrit('TRD'//str2,klev,'SOURCE','',tr_seri(:,:,itr))
    23412341      enddo
    23422342#endif
    … …  
    24062406#ifdef IOPHYS_DUST
    24072407      print*,'iflag_conv=',iflag_conv
    2408       call iophys_ecrit('coefh',klev,'coefh','',coefh)
    2409       call iophys_ecrit('yu1',1,'yu1','',yu1)
    2410       call iophys_ecrit('yv1',1,'yv1','',yv1)
    2411       call iophys_ecrit('delp',klev,'delp','',delp)
     2408      CALL iophys_ecrit('coefh',klev,'coefh','',coefh)
     2409      CALL iophys_ecrit('yu1',1,'yu1','',yu1)
     2410      CALL iophys_ecrit('yv1',1,'yv1','',yv1)
     2411      CALL iophys_ecrit('delp',klev,'delp','',delp)
    24122412      do itr=1,nbtr
    24132413         write(str2,'(i2.2)') itr
    2414          call iophys_ecrit('TRE'//str2,klev,'SOURCE','',tr_seri(:,:,itr))
     2414         CALL iophys_ecrit('TRE'//str2,klev,'SOURCE','',tr_seri(:,:,itr))
    24152415      enddo
    24162416#endif
    … …  
    26042604      do itr=1,nbtr
    26052605         write(str2,'(i2.2)') itr
    2606          call iophys_ecrit('TRF'//str2,klev,'SOURCE','',tr_seri(:,:,itr))
     2606         CALL iophys_ecrit('TRF'//str2,klev,'SOURCE','',tr_seri(:,:,itr))
    26072607      enddo
    26082608#endif
    … …  
    26912691      do itr=1,nbtr
    26922692         write(str2,'(i2.2)') itr
    2693          call iophys_ecrit('TRG'//str2,klev,'SOURCE','',tr_seri(:,:,itr))
     2693         CALL iophys_ecrit('TRG'//str2,klev,'SOURCE','',tr_seri(:,:,itr))
    26942694      enddo
    26952695#endif
    … …  
    28562856      do itr=1,nbtr
    28572857         write(str2,'(i2.2)') itr
    2858          call iophys_ecrit('TRH'//str2,klev,'SOURCE','',tr_seri(:,:,itr))
     2858         CALL iophys_ecrit('TRH'//str2,klev,'SOURCE','',tr_seri(:,:,itr))
    28592859      enddo
    28602860#endif
    … …  
    30333033
    30343034#ifdef IOPHYS_DUST
    3035       call iophys_ecrit('da',klev,'da','',da)
    3036       call iophys_ecrit('phi',klev,'phi','',phi)
    3037       call iophys_ecrit('phi2',klev,'phi2','',phi2)
    3038       call iophys_ecrit('d1a',klev,'d1a','',d1a)
    3039       call iophys_ecrit('dam',klev,'dam','',dam)
    3040       call iophys_ecrit('mp',klev,'mp','',mp)
    3041       call iophys_ecrit('ep',klev,'ep','',ep)
    3042       call iophys_ecrit('sigd',klev,'sigd','',sigd)
    3043       call iophys_ecrit('sij',klev,'sij','',sij)
    3044       call iophys_ecrit('wght_cvfd',klev,'wght_cvfd','',wght_cvfd)
    3045       call iophys_ecrit('clw',klev,'clw','',clw)
    3046       call iophys_ecrit('elij',klev,'elij','',elij)
    3047       call iophys_ecrit('epmlmMm',klev,'epmlmMm','',epmlmMm)
    3048       call iophys_ecrit('eplaMm',klev,'eplaMm','',eplaMm)
    3049       call iophys_ecrit('pmflxr',klev,'pmflxr','',pmflxr)
    3050       call iophys_ecrit('pmflxs',klev,'pmflxs','',pmflxs)
    3051       call iophys_ecrit('evapls',klev,'evapls','',evapls)
    3052       call iophys_ecrit('wdtrainA',klev,'wdtrainA','',wdtrainA)
    3053       call iophys_ecrit('wdtrainM',klev,'wdtrainM','',wdtrainM)
     3035      CALL iophys_ecrit('da',klev,'da','',da)
     3036      CALL iophys_ecrit('phi',klev,'phi','',phi)
     3037      CALL iophys_ecrit('phi2',klev,'phi2','',phi2)
     3038      CALL iophys_ecrit('d1a',klev,'d1a','',d1a)
     3039      CALL iophys_ecrit('dam',klev,'dam','',dam)
     3040      CALL iophys_ecrit('mp',klev,'mp','',mp)
     3041      CALL iophys_ecrit('ep',klev,'ep','',ep)
     3042      CALL iophys_ecrit('sigd',klev,'sigd','',sigd)
     3043      CALL iophys_ecrit('sij',klev,'sij','',sij)
     3044      CALL iophys_ecrit('wght_cvfd',klev,'wght_cvfd','',wght_cvfd)
     3045      CALL iophys_ecrit('clw',klev,'clw','',clw)
     3046      CALL iophys_ecrit('elij',klev,'elij','',elij)
     3047      CALL iophys_ecrit('epmlmMm',klev,'epmlmMm','',epmlmMm)
     3048      CALL iophys_ecrit('eplaMm',klev,'eplaMm','',eplaMm)
     3049      CALL iophys_ecrit('pmflxr',klev,'pmflxr','',pmflxr)
     3050      CALL iophys_ecrit('pmflxs',klev,'pmflxs','',pmflxs)
     3051      CALL iophys_ecrit('evapls',klev,'evapls','',evapls)
     3052      CALL iophys_ecrit('wdtrainA',klev,'wdtrainA','',wdtrainA)
     3053      CALL iophys_ecrit('wdtrainM',klev,'wdtrainM','',wdtrainM)
    30543054
    30553055      do itr=1,nbtr
    30563056         write(str2,'(i2.2)') itr
    3057          call iophys_ecrit('TRI'//str2,klev,'SOURCE','',tr_seri(:,:,itr))
     3057         CALL iophys_ecrit('TRI'//str2,klev,'SOURCE','',tr_seri(:,:,itr))
    30583058      enddo
    30593059#endif
    … …  
    31763176      do itr=1,nbtr
    31773177         write(str2,'(i2.2)') itr
    3178          call iophys_ecrit('TRJ'//str2,klev,'SOURCE','',tr_seri(:,:,itr))
     3178         CALL iophys_ecrit('TRJ'//str2,klev,'SOURCE','',tr_seri(:,:,itr))
    31793179      enddo
    31803180#endif
    … …  
    34423442      do itr=1,nbtr
    34433443         write(str2,'(i2.2)') itr
    3444          call iophys_ecrit('TRK'//str2,klev,'SOURCE','',tr_seri(:,:,itr))
     3444         CALL iophys_ecrit('TRK'//str2,klev,'SOURCE','',tr_seri(:,:,itr))
    34453445      enddo
    34463446#endif
    … …  
    43844384    IF (test_sca == 0) THEN
    43854385      ! READ file!!
    4386       call read_scalenc(filescaleparams, paramname_ind, &
     4386      CALL read_scalenc(filescaleparams, paramname_ind, &
    43874387              nbreg_ind, step_sca, &
    43884388              scale_param_ind)
    4389       call read_scalenc(filescaleparams, paramname_bb, &
     4389      CALL read_scalenc(filescaleparams, paramname_bb, &
    43904390              nbreg_bb, step_sca, &
    43914391              scale_param_bb)
    4392       call read_scalenc(filescaleparams, paramname_ff, &
     4392      CALL read_scalenc(filescaleparams, paramname_ff, &
    43934393              nbreg_ff, step_sca, &
    43944394              scale_param_ff)
    4395       call read_scalenc(filescaleparams, paramname_dustacc, &
     4395      CALL read_scalenc(filescaleparams, paramname_dustacc, &
    43964396              nbreg_dustacc, step_sca, &
    43974397              scale_param_dustacc)
    4398       call read_scalenc(filescaleparams, paramname_dustcoa, &
     4398      CALL read_scalenc(filescaleparams, paramname_dustcoa, &
    43994399              nbreg_dustcoa, step_sca, &
    44004400              scale_param_dustcoa)
    4401       call read_scalenc(filescaleparams, paramname_dustsco, &
     4401      CALL read_scalenc(filescaleparams, paramname_dustsco, &
    44024402              nbreg_dustsco, step_sca, &
    44034403              scale_param_dustsco)
    4404       call read_scalenc(filescaleparams, paramname_wstarBL, &
     4404      CALL read_scalenc(filescaleparams, paramname_wstarBL, &
    44054405              nbreg_wstardustBL, step_sca, &
    44064406              param_wstarBLperregion)
    4407       call read_scalenc(filescaleparams, paramname_wstarWAKE, &
     4407      CALL read_scalenc(filescaleparams, paramname_wstarWAKE, &
    44084408              nbreg_wstardustWAKE, step_sca, &
    44094409              param_wstarWAKEperregion)
    4410       call read_scalenc(filescaleparams, paramname_ssacc, &
     4410      CALL read_scalenc(filescaleparams, paramname_ssacc, &
    44114411              nbreg_ssacc, step_sca, &
    44124412              scale_param_ssacc_tmp)
    4413       call read_scalenc(filescaleparams, paramname_sscoa, &
     4413      CALL read_scalenc(filescaleparams, paramname_sscoa, &
    44144414              nbreg_sscoa, step_sca, &
    44154415              scale_param_sscoa_tmp)
    … …  
    44354435    USE mod_grid_phy_lmdz
    44364436    USE mod_phys_lmdz_para
    4437     USE netcdf, ONLY : nf90_open, nf90_close, nf90_inq_varid, nf90_nowrite, nf90_noerr, nf90_get_var
     4437    USE netcdf, ONLY: nf90_open, nf90_close, nf90_inq_varid, nf90_nowrite, nf90_noerr, nf90_get_var
    44384438    IMPLICIT NONE
    44394439
    … …  
    44664466            print *, 'error ierr= ', ierr
    44674467            CALL exit(1)
    4468             call abort_gcm('read_scalenc', 'error reading variable', 1)
     4468            CALL abort_gcm('read_scalenc', 'error reading variable', 1)
    44694469          ENDIF
    44704470
    … …  
    44834483    !$OMP BARRIER
    44844484    !      CALL scatter(var local _glo,var local) o algo asi
    4485     call bcast(scale_param)
     4485    CALL bcast(scale_param)
    44864486  END SUBROUTINE read_scalenc
    44874487

  • LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/precuremission.F

    r5082 r5101  
    1919      USE indice_sol_mod
    2020      USE infotrac
    21 !      USE phytracr_spl_mod, ONLY : nbreg_dust, nbreg_ind, nbreg_bb
     21!      USE phytracr_spl_mod, ONLY: nbreg_dust, nbreg_ind, nbreg_bb
    2222      IMPLICIT NONE
    2323

  • LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/read_dust.f90

    r5099 r5101  
    33  USE mod_grid_phy_lmdz
    44  USE mod_phys_lmdz_para
    5   USE netcdf, ONLY : nf90_get_var, nf90_nowrite, nf90_open, nf90_inq_varid
     5  USE netcdf, ONLY: nf90_get_var, nf90_nowrite, nf90_open, nf90_inq_varid
    66  IMPLICIT NONE
    77
    … …  
    4444    status = nf90_get_var(ncid1, varid1, dust_nc_glo, start, count)
    4545
    46     ! call correctbid(iim,jjp1,dust_nc)
    47     call correctbid(nbp_lon, nbp_lat, dust_nc_glo)
     46    ! CALL correctbid(iim,jjp1,dust_nc)
     47    CALL correctbid(nbp_lon, nbp_lat, dust_nc_glo)
    4848
    4949    !--upside down + physical grid

  • LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/read_newemissions.F

    r5099 r5101  
    181181!$OMP END MASTER
    182182!$OMP BARRIER
    183        call scatter(wth_glo,wth)
    184        call scatter(cly_glo,cly)
    185        call scatter(zprecipinsoil_glo,zprecipinsoil)
     183       CALL scatter(wth_glo,wth)
     184       CALL scatter(cly_glo,cly)
     185       CALL scatter(zprecipinsoil_glo,zprecipinsoil)
    186186
    187187!JE20140908<<        GOTO 1000

  • LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/read_surface.F90

    r5099 r5101  
    106106          status=nf90_get_var(ncid,varid,tmp_dyn_glo,start,count)
    107107
    108 !      call dump2d(iip1,jjp1,tmp_dyn,'tmp_dyn   ')
     108!      CALL dump2d(iip1,jjp1,tmp_dyn,'tmp_dyn   ')
    109109       DO j=1, nbp_lat
    110110          DO ig=1, nbp_lon+1
    … …  
    114114
    115115       
    116 !JE20140522!          call gr_dyn_fi_p(1, iip1, jjp1, klon, tmp_dyn_invers, tmp_fi)
     116!JE20140522!          CALL gr_dyn_fi_p(1, iip1, jjp1, klon, tmp_dyn_invers, tmp_fi)
    117117
    118118!JE20140526<<
    119 !              call gr_dyn_fi(1, iip1, jjp1, klon, tmp_dyn_invers, tmp_fi)
     119!              CALL gr_dyn_fi(1, iip1, jjp1, klon, tmp_dyn_invers, tmp_fi)
    120120           if (isinversed) then
    121                         call gr_dyn_fi(1, nbp_lon+1, nbp_lat, klon_glo, &
     121                        CALL gr_dyn_fi(1, nbp_lon+1, nbp_lat, klon_glo, &
    122122   tmp_dyn_invers_glo, tmp_fi_glo)
    123 !              call gr_dyn_fi(1, iip1, jjp1, klon, tmp_dyn_invers, tmp_fi)
    124 !              call gr_dyn_fi_p(1, iip1, jjp1, klon, tmp_dyn_invers, tmp_fi)
     123!              CALL gr_dyn_fi(1, iip1, jjp1, klon, tmp_dyn_invers, tmp_fi)
     124!              CALL gr_dyn_fi_p(1, iip1, jjp1, klon, tmp_dyn_invers, tmp_fi)
    125125           else     
    126                         call gr_dyn_fi(1, nbp_lon+1, nbp_lat, klon_glo, &
     126                        CALL gr_dyn_fi(1, nbp_lon+1, nbp_lat, klon_glo, &
    127127     tmp_dyn_glo, tmp_fi_glo)
    128 !              call gr_dyn_fi(1, iip1, jjp1, klon, tmp_dyn, tmp_fi)
    129 !              call gr_dyn_fi_p(1, iip1, jjp1, klon, tmp_dyn, tmp_fi)
     128!              CALL gr_dyn_fi(1, iip1, jjp1, klon, tmp_dyn, tmp_fi)
     129!              CALL gr_dyn_fi_p(1, iip1, jjp1, klon, tmp_dyn, tmp_fi)
    130130           endif
    131131!JE20140526>>
    132 !      call dump2d(iim,jjm-1,tmp_fi(2),'tmp_fi   ')
     132!      CALL dump2d(iim,jjm-1,tmp_fi(2),'tmp_fi   ')
    133133
    134134          DO j=1,klon_glo
    … …  
    145145!$OMP END MASTER
    146146!$OMP BARRIER
    147       call scatter(surfa_glo,surfa)
     147      CALL scatter(surfa_glo,surfa)
    148148
    149149

  • LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/read_vent.f90

    r5099 r5101  
    33  USE mod_grid_phy_lmdz
    44  USE mod_phys_lmdz_para
    5   USE netcdf, ONLY : nf90_get_var, nf90_open, nf90_inq_varid, nf90_nowrite
     5  USE netcdf, ONLY: nf90_get_var, nf90_open, nf90_inq_varid, nf90_nowrite
    66  IMPLICIT NONE
    77  INCLUDE "dimensions.h"
    … …  
    5757
    5858    !  print *,status
    59     ! call correctbid(iim,jjp1,u10m_nc)
    60     ! call correctbid(iim,jjp1,v10m_nc)
    61     call correctbid(nbp_lon, nbp_lat, u10m_nc_glo)
    62     call correctbid(nbp_lon, nbp_lat, v10m_nc_glo)
     59    ! CALL correctbid(iim,jjp1,u10m_nc)
     60    ! CALL correctbid(iim,jjp1,v10m_nc)
     61    CALL correctbid(nbp_lon, nbp_lat, u10m_nc_glo)
     62    CALL correctbid(nbp_lon, nbp_lat, v10m_nc_glo)
    6363
    6464    ! print *,'afterbidcor u10m_nc', u10m_nc(1,jjp1)

  • LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/splaeropt_5wv_rrtm.f90

    r5099 r5101  
    88  USE DIMPHY
    99  USE aero_mod
    10   USE infotrac_phy, ONLY : nqtot, nbtr, tracers
    11   USE phys_local_var_mod, ONLY : od550aer, od865aer, ec550aer, od550lt1aer
     10  USE infotrac_phy, ONLY: nqtot, nbtr, tracers
     11  USE phys_local_var_mod, ONLY: od550aer, od865aer, ec550aer, od550lt1aer
    1212
    1313  ! Olivier Boucher Jan 2017

  • LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/splaeropt_6bands_rrtm.f90

    r5099 r5101  
    88  USE dimphy
    99  USE aero_mod
    10   USE infotrac_phy, ONLY : nqtot, nbtr, tracers
    11   USE phys_local_var_mod, ONLY : abs550aer
     10  USE infotrac_phy, ONLY: nqtot, nbtr, tracers
     11  USE phys_local_var_mod, ONLY: abs550aer
    1212
    1313  ! Olivier Boucher Jan 2017

  • LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/splaeropt_lw_rrtm.f90

    r5099 r5101  
    1010  USE dimphy
    1111  USE aero_mod
    12   USE infotrac_phy, ONLY : nqtot, nbtr, tracers
    13   USE phys_state_var_mod, ONLY : tau_aero_lw_rrtm
    14   USE lmdz_yoerad, ONLY : NLW
     12  USE infotrac_phy, ONLY: nqtot, nbtr, tracers
     13  USE phys_state_var_mod, ONLY: tau_aero_lw_rrtm
     14  USE lmdz_yoerad, ONLY: NLW
    1515
    1616  IMPLICIT NONE

  • LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/splaerosol_optic_rrtm.f90

    r5099 r5101  
    1212  USE dimphy
    1313  USE aero_mod
    14   USE infotrac_phy, ONLY : nbtr, nqtot, tracers
    15   USE lmdz_yomcst, ONLY : RD, RG
     14  USE infotrac_phy, ONLY: nbtr, nqtot, tracers
     15  USE lmdz_yomcst, ONLY: RD, RG
    1616
    1717  IMPLICIT NONE
Note: See TracChangeset for help on using the changeset viewer.