Ignore:
Timestamp:
Jul 23, 2024, 8:22:55 AM (4 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
Files:
192 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

  • LMDZ6/branches/Amaury_dev/libf/phylmd/Ocean_skin/bulk_flux_m.F90

    r5086 r5101  
    108108    if (Jwarm) then
    109109       if (rain_effect) then
    110           call Near_Surface(al, t_subskin, s_subskin, ds_ns, dt_ns, &
     110          CALL Near_Surface(al, t_subskin, s_subskin, ds_ns, dt_ns, &
    111111               tau_with_min, taur, hlb, rhoa, xlv, dtime, t_ocean_1, s1, rain, &
    112112               q_pwp = fxp * rns - (hf + hlb + rnl + rf))
    113113       else
    114           call Near_Surface(al, t_subskin, s_subskin, ds_ns, dt_ns, &
     114          CALL Near_Surface(al, t_subskin, s_subskin, ds_ns, dt_ns, &
    115115               tau_with_min, taur, hlb, rhoa, xlv, dtime, t_ocean_1, s1, &
    116116               rain = null_array, q_pwp = fxp * rns - (hf + hlb + rnl))
    … …  
    132132               * (1. - exp(- tkt / 8e-4))) ! equation 16 Ohlmann
    133133          if (rain_effect) then
    134              call Microlayer(dter, dser, tkt, tks, hlb, tau_with_min, &
     134             CALL Microlayer(dter, dser, tkt, tks, hlb, tau_with_min, &
    135135                  s_subskin, al, xlv, taur, rf, rain, &
    136136                  qcol = rnl + hf + hlb - dels)
    137137          else
    138              call Microlayer(dter, dser, tkt, tks, hlb, tau_with_min, &
     138             CALL Microlayer(dter, dser, tkt, tks, hlb, tau_with_min, &
    139139                  s_subskin, al, xlv, taur, rf = null_array, &
    140140                  rain = null_array, qcol = rnl + hf + hlb - dels)

  • LMDZ6/branches/Amaury_dev/libf/phylmd/Ocean_skin/config_ocean_skin_m.F90

    r4176 r5101  
    4242
    4343#ifdef IN_LMDZ
    44     call getin_p("activate_ocean_skin", activate_ocean_skin)
    45     call assert(activate_ocean_skin >= 0 .and. activate_ocean_skin <= 2, &
     44    CALL getin_p("activate_ocean_skin", activate_ocean_skin)
     45    CALL assert(activate_ocean_skin >= 0 .and. activate_ocean_skin <= 2, &
    4646         "config_ocean_skin bad value of activate_ocean_skin")
    4747    if (activate_ocean_skin >= 1) then
    48        call getin_p("flag_ocean_skin", flag_ocean_skin)
    49        call getin_p("depth_1", depth_1)
     48       CALL getin_p("flag_ocean_skin", flag_ocean_skin)
     49       CALL getin_p("depth_1", depth_1)
    5050    end if
    5151#else

  • LMDZ6/branches/Amaury_dev/libf/phylmd/StratAer/aer_sedimnt.F90

    r5099 r5101  
    1919  USE phys_local_var_mod, ONLY: mdw, budg_sed_part, DENSO4, DENSO4B, f_r_wet, f_r_wetB, vsed_aer
    2020  USE strataer_local_var_mod, ONLY: flag_new_strat_compo
    21   USE dimphy, ONLY : klon,klev
     21  USE dimphy, ONLY: klon,klev
    2222  USE infotrac_phy
    2323  USE aerophys

  • LMDZ6/branches/Amaury_dev/libf/phylmd/StratAer/coagulate.F90

    r5099 r5101  
    2323  !     -----------------------------------------------------------------------
    2424
    25   USE dimphy, ONLY : klon,klev
     25  USE dimphy, ONLY: klon,klev
    2626  USE aerophys
    2727  USE infotrac_phy

  • LMDZ6/branches/Amaury_dev/libf/phylmd/StratAer/cond_evap_tstep_mod.F90

    r5099 r5101  
    2828      USE aerophys
    2929      USE infotrac_phy
    30       USE lmdz_yomcst, ONLY : RPI
    31       USE sulfate_aer_mod, ONLY : wph2so4, surftension, solh2so4, rpmvh2so4
    32       USE strataer_local_var_mod, ONLY : ALPH2SO4, RRSI
     30      USE lmdz_yomcst, ONLY: RPI
     31      USE sulfate_aer_mod, ONLY: wph2so4, surftension, solh2so4, rpmvh2so4
     32      USE strataer_local_var_mod, ONLY: ALPH2SO4, RRSI
    3333     
    3434      IMPLICIT NONE
    … …  
    177177      USE aerophys
    178178      USE infotrac_phy
    179       USE lmdz_yomcst, ONLY : RPI
    180       USE strataer_local_var_mod, ONLY : ALPH2SO4, RRSI
     179      USE lmdz_yomcst, ONLY: RPI
     180      USE strataer_local_var_mod, ONLY: ALPH2SO4, RRSI
    181181
    182182      IMPLICIT NONE
    … …  
    290290      USE aerophys
    291291      USE infotrac_phy
    292       USE lmdz_yomcst, ONLY : RPI
    293       USE strataer_local_var_mod, ONLY : RRSI,Vbin
     292      USE lmdz_yomcst, ONLY: RPI
     293      USE strataer_local_var_mod, ONLY: RRSI,Vbin
    294294     
    295295      IMPLICIT NONE

  • LMDZ6/branches/Amaury_dev/libf/phylmd/StratAer/interp_sulf_input.F90

    r5099 r5101  
    99
    1010  USE mod_grid_phy_lmdz
    11   USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root
    12   USE mod_phys_lmdz_omp_data, ONLY :  is_omp_root
    13   USE phys_local_var_mod, ONLY : budg_3D_backgr_ocs, budg_3D_backgr_so2
    14   USE phys_local_var_mod, ONLY : OCS_lifetime, SO2_lifetime, H2SO4_lifetime, O3_clim
     11  USE mod_phys_lmdz_mpi_data, ONLY:  is_mpi_root
     12  USE mod_phys_lmdz_omp_data, ONLY:  is_omp_root
     13  USE phys_local_var_mod, ONLY: budg_3D_backgr_ocs, budg_3D_backgr_so2
     14  USE phys_local_var_mod, ONLY: OCS_lifetime, SO2_lifetime, H2SO4_lifetime, O3_clim
    1515  USE mod_phys_lmdz_para
    1616  USE dimphy
    … …  
    1919  USE aerophys
    2020  USE lmdz_yomcst
    21   USE strataer_local_var_mod, ONLY : flag_newclim_file,flag_verbose_strataer
     21  USE strataer_local_var_mod, ONLY: flag_newclim_file,flag_verbose_strataer
    2222
    2323  IMPLICIT NONE

  • LMDZ6/branches/Amaury_dev/libf/phylmd/StratAer/micphy_tstep.F90

    r5099 r5101  
    44SUBROUTINE micphy_tstep(pdtphys,tr_seri,t_seri,pplay,paprs,rh,is_strato)
    55
    6   USE geometry_mod, ONLY : latitude_deg !NL- latitude corr. to local domain
    7   USE dimphy, ONLY : klon,klev
     6  USE geometry_mod, ONLY: latitude_deg !NL- latitude corr. to local domain
     7  USE dimphy, ONLY: klon,klev
    88  USE aerophys
    9   USE infotrac_phy, ONLY : nbtr_bin, nbtr_sulgas, nbtr, id_H2SO4_strat
     9  USE infotrac_phy, ONLY: nbtr_bin, nbtr_sulgas, nbtr, id_H2SO4_strat
    1010  USE phys_local_var_mod, ONLY: mdw, budg_3D_nucl, budg_3D_cond_evap, budg_h2so4_to_part, R2SO4, DENSO4, &
    1111       f_r_wet, R2SO4B, DENSO4B, f_r_wetB
    1212  USE nucleation_tstep_mod
    1313  USE cond_evap_tstep_mod
    14   USE sulfate_aer_mod, ONLY : STRAACT
    15   USE lmdz_yomcst, ONLY : RPI, RD, RG
     14  USE sulfate_aer_mod, ONLY: STRAACT
     15  USE lmdz_yomcst, ONLY: RPI, RD, RG
    1616  USE print_control_mod, ONLY: lunout
    1717  USE strataer_local_var_mod ! contains also RRSI and Vbin

  • LMDZ6/branches/Amaury_dev/libf/phylmd/StratAer/miecalc_aer.F90

    r5099 r5101  
    1818  USE aerophys, ONLY: dens_aer_dry, dens_aer_ref, V_rat
    1919  USE aero_mod
    20   USE infotrac_phy, ONLY : nbtr, nbtr_bin, nbtr_sulgas, id_SO2_strat
     20  USE infotrac_phy, ONLY: nbtr, nbtr_bin, nbtr_sulgas, id_SO2_strat
    2121  USE dimphy
    22   USE lmdz_yomcst  , ONLY : RG, RPI
     22  USE lmdz_yomcst  , ONLY: RG, RPI
    2323  USE mod_phys_lmdz_para, only: gather, scatter, bcast
    24   USE mod_grid_phy_lmdz, ONLY : klon_glo
    25   USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root
     24  USE mod_grid_phy_lmdz, ONLY: klon_glo
     25  USE mod_phys_lmdz_mpi_data, ONLY:  is_mpi_root
    2626  USE print_control_mod, ONLY: prt_level, lunout
    2727

  • LMDZ6/branches/Amaury_dev/libf/phylmd/StratAer/nucleation_tstep_mod.F90

    r5099 r5101  
    1010  USE aerophys
    1111  USE infotrac_phy
    12   USE strataer_local_var_mod, ONLY : flag_new_nucl
     12  USE strataer_local_var_mod, ONLY: flag_new_nucl
    1313  USE lmdz_yomcst
    1414 
    … …  
    3939  REAL ipr     ! Ion pair production rate (cm-3 s-1) NOT IN USE
    4040
    41   ! call nucleation routine
     41  ! CALL nucleation routine
    4242  IF (.NOT.flag_new_nucl) THEN
    4343    ! Use older routine from Hanna Vehkamäki (FMI)
    … …  
    7373  USE aerophys
    7474  USE infotrac_phy
    75   USE strataer_local_var_mod, ONLY : Vbin
     75  USE strataer_local_var_mod, ONLY: Vbin
    7676 
    7777  IMPLICIT NONE

  • LMDZ6/branches/Amaury_dev/libf/phylmd/StratAer/ocs_to_so2.F90

    r5099 r5101  
    44SUBROUTINE ocs_to_so2(pdtphys,tr_seri,t_seri,pplay,paprs,is_strato)
    55
    6   USE dimphy, ONLY : klon,klev
     6  USE dimphy, ONLY: klon,klev
    77  USE aerophys
    88  USE infotrac_phy
    9   USE lmdz_yomcst, ONLY : RG
    10   USE phys_local_var_mod, ONLY : OCS_lifetime, budg_3D_ocs_to_so2, budg_ocs_to_so2
    11   USE strataer_local_var_mod, ONLY : flag_min_rreduce
     9  USE lmdz_yomcst, ONLY: RG
     10  USE phys_local_var_mod, ONLY: OCS_lifetime, budg_3D_ocs_to_so2, budg_ocs_to_so2
     11  USE strataer_local_var_mod, ONLY: flag_min_rreduce
    1212
    1313  IMPLICIT NONE

  • LMDZ6/branches/Amaury_dev/libf/phylmd/StratAer/so2_to_h2so4.F90

    r5099 r5101  
    44SUBROUTINE SO2_TO_H2SO4(pdtphys,tr_seri,t_seri,pplay,paprs,is_strato)
    55
    6   USE dimphy, ONLY : klon,klev
     6  USE dimphy, ONLY: klon,klev
    77  USE aerophys
    88  USE infotrac_phy
    9   USE lmdz_yomcst, ONLY : RG, RD
     9  USE lmdz_yomcst, ONLY: RG, RD
    1010  ! lifetime (sec) et O3_clim (VMR)
    11   USE phys_local_var_mod, ONLY : SO2_lifetime, H2SO4_lifetime, O3_clim, budg_3D_so2_to_h2so4, budg_so2_to_h2so4
    12   USE strataer_local_var_mod, ONLY : flag_OH_reduced, flag_H2SO4_photolysis, flag_min_rreduce
     11  USE phys_local_var_mod, ONLY: SO2_lifetime, H2SO4_lifetime, O3_clim, budg_3D_so2_to_h2so4, budg_so2_to_h2so4
     12  USE strataer_local_var_mod, ONLY: flag_OH_reduced, flag_H2SO4_photolysis, flag_min_rreduce
    1313 
    1414  IMPLICIT NONE

  • LMDZ6/branches/Amaury_dev/libf/phylmd/StratAer/stratH2O_methox.F90

    r5099 r5101  
    1111
    1212  USE mod_grid_phy_lmdz
    13   USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root
    14   USE mod_phys_lmdz_omp_data, ONLY :  is_omp_root
     13  USE mod_phys_lmdz_mpi_data, ONLY:  is_mpi_root
     14  USE mod_phys_lmdz_omp_data, ONLY:  is_omp_root
    1515
    1616  USE mod_phys_lmdz_para
    1717  USE dimphy
    18   USE phys_cal_mod, ONLY : mth_cur
     18  USE phys_cal_mod, ONLY: mth_cur
    1919  USE infotrac_phy
    2020  USE aerophys
    2121  USE lmdz_yomcst
    22   USE strataer_local_var_mod, ONLY : flag_newclim_file
     22  USE strataer_local_var_mod, ONLY: flag_newclim_file
    2323 
    2424  IMPLICIT NONE

  • LMDZ6/branches/Amaury_dev/libf/phylmd/StratAer/strataer_emiss_mod.F90

    r5098 r5101  
    77
    88    USE strataer_local_var_mod
    9     USE ioipsl_getin_p_mod, ONLY : getin_p
    10     USE print_control_mod, ONLY : lunout
    11     USE mod_phys_lmdz_para, ONLY : is_master
     9    USE ioipsl_getin_p_mod, ONLY: getin_p
     10    USE print_control_mod, ONLY: lunout
     11    USE mod_phys_lmdz_para, ONLY: is_master
    1212
    1313    ! Local variables
    … …  
    217217    USE dimphy, ONLY: klon
    218218    USE mod_grid_phy_lmdz, ONLY: nbp_lat, nbp_lon
    219     USE print_control_mod, ONLY : lunout
     219    USE print_control_mod, ONLY: lunout
    220220    USE strataer_local_var_mod
    221221    USE lmdz_yomcst, ONLY: RPI

  • LMDZ6/branches/Amaury_dev/libf/phylmd/StratAer/strataer_nuc_mod.F90

    r5099 r5101  
    1010  SUBROUTINE strataer_nuc_init()
    1111   
    12     USE ioipsl_getin_p_mod, ONLY : getin_p
    13     USE print_control_mod, ONLY : lunout
    14     USE mod_phys_lmdz_para, ONLY : is_master
     12    USE ioipsl_getin_p_mod, ONLY: getin_p
     13    USE print_control_mod, ONLY: lunout
     14    USE mod_phys_lmdz_para, ONLY: is_master
    1515    USE strataer_local_var_mod, ONLY: ALPH2SO4,flag_nuc_rate_box,nuclat_min,nuclat_max, &
    1616         nucpres_min,nucpres_max
    … …  
    5050   
    5151    USE infotrac_phy, ONLY: nbtr, nbtr_sulgas, id_H2SO4_strat
    52     USE ioipsl, ONLY : getin
    53     USE print_control_mod, ONLY : lunout
     52    USE ioipsl, ONLY: getin
     53    USE print_control_mod, ONLY: lunout
    5454   
    5555    ! Output variables

  • LMDZ6/branches/Amaury_dev/libf/phylmd/StratAer/stratdistrib.F90

    r5099 r5101  
    44SUBROUTINE STRATDISTRIB(altLMDz,altemiss,sigma_alt,f_lay_emiss)
    55
    6   USE dimphy, ONLY : klon,klev
     6  USE dimphy, ONLY: klon,klev
    77  USE strataer_local_var_mod
    8   USE lmdz_yomcst, only : RPI
     8  USE lmdz_yomcst, ONLY: RPI
    99
    1010  IMPLICIT NONE

  • LMDZ6/branches/Amaury_dev/libf/phylmd/StratAer/stratemit.F90

    r5099 r5101  
    66                    stretchlong,ispeci,id_species_total)
    77
    8   USE dimphy, ONLY : klon,klev
     8  USE dimphy, ONLY: klon,klev
    99  USE strataer_local_var_mod
    1010  USE phys_cal_mod
    1111  USE phys_local_var_mod, ONLY: d_q_emiss
    12   USE lmdz_yomcst, only : RD, RPI, RG
    13   USE geometry_mod, ONLY : cell_area, boundslat
     12  USE lmdz_yomcst, ONLY: RD, RPI, RG
     13  USE geometry_mod, ONLY: cell_area, boundslat
    1414  USE aerophys
    1515  USE infotrac_phy
    16   USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root
     16  USE mod_phys_lmdz_mpi_data, ONLY:  is_mpi_root
    1717  USE mod_grid_phy_lmdz, ONLY: nbp_lon
    1818 

  • LMDZ6/branches/Amaury_dev/libf/phylmd/StratAer/sulfate_aer_mod.F90

    r5099 r5101  
    2525!        assuming 'curved surface' composition (depends on aerosol size)
    2626   
    27       USE dimphy, ONLY : klon,klev ! nb of longitude and altitude bands
    28       USE infotrac_phy, ONLY : nbtr_bin
     27      USE dimphy, ONLY: klon,klev ! nb of longitude and altitude bands
     28      USE infotrac_phy, ONLY: nbtr_bin
    2929      USE aerophys
    3030      USE phys_local_var_mod, ONLY: R2SO4, R2SO4B, DENSO4, DENSO4B, f_r_wet, f_r_wetB
    … …  
    164164!   R2SO4: aerosol H2SO4 weight fraction (percent)
    165165 
    166     USE dimphy, ONLY : klon,klev
     166    USE dimphy, ONLY: klon,klev
    167167    USE aerophys
    168168    USE phys_local_var_mod, ONLY: R2SO4
    … …  
    550550!   ACTSO4: H2SO4 activity (percent)
    551551 
    552     USE dimphy, ONLY : klon,klev
     552    USE dimphy, ONLY: klon,klev
    553553    USE phys_local_var_mod, ONLY: R2SO4
    554554
    … …  
    635635!   DENSO4: aerosol mass density (gr/cm3 = aerosol mass/aerosol volume)
    636636
    637     USE dimphy, ONLY : klon,klev
     637    USE dimphy, ONLY: klon,klev
    638638    USE phys_local_var_mod, ONLY: R2SO4, DENSO4
    639639
    … …  
    986986!        mfh2so4 = Mh2so4*sulfmolal / (1000.+Mh2so4*sulfmolal)
    987987!        wph2so4 (% mass fraction)= 100.*Mh2so4*sulfmolal / (1000.+Mh2so4*sulfmolal)
    988 !        recall activity of i = a_i = P_i/P_pure_i and
     988!        reCALL activity of i = a_i = P_i/P_pure_i and
    989989!          activity coefficient of i = gamma_i = a_i/X_i (X_i: mole fraction of i)
    990990!        so  P_i = gamma_i*X_i*P_pure_i

  • LMDZ6/branches/Amaury_dev/libf/phylmd/StratAer/traccoag_mod.F90

    r5099 r5101  
    1515   
    1616    USE dimphy
    17     USE infotrac_phy, ONLY : nbtr_bin, nbtr_sulgas, nbtr, id_SO2_strat
     17    USE infotrac_phy, ONLY: nbtr_bin, nbtr_sulgas, nbtr, id_SO2_strat
    1818    USE aerophys
    19     USE geometry_mod, ONLY : cell_area, boundslat
     19    USE geometry_mod, ONLY: cell_area, boundslat
    2020    USE mod_grid_phy_lmdz
    21     USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root
     21    USE mod_phys_lmdz_mpi_data, ONLY:  is_mpi_root
    2222    USE mod_phys_lmdz_para, only: gather, scatter
    23     USE phys_cal_mod, ONLY : year_len, year_cur, mth_cur, day_cur, hour
     23    USE phys_cal_mod, ONLY: year_len, year_cur, mth_cur, day_cur, hour
    2424    USE sulfate_aer_mod
    2525    USE phys_local_var_mod, ONLY: stratomask
    … …  
    325325    CALL micphy_tstep(pdtphys,tr_seri,t_seri,pplay,paprs,rh,is_strato)
    326326
    327 !--call coagulation routine
     327!--CALL coagulation routine
    328328    CALL coagulate(pdtphys,mdw,tr_seri,t_seri,pplay,dens_aer,is_strato)
    329329
    330 !--call sedimentation routine
     330!--CALL sedimentation routine
    331331    CALL aer_sedimnt(pdtphys, t_seri, pplay, paprs, tr_seri, dens_aer)
    332332

  • LMDZ6/branches/Amaury_dev/libf/phylmd/acama_gwd_rando_m.F90

    r5099 r5101  
    2323    use dimphy, only: klon, klev
    2424    use assert_m, only: assert
    25     USE ioipsl_getin_p_mod, ONLY : getin_p
    26     USE vertical_layers_mod, ONLY : presnivs
     25    USE ioipsl_getin_p_mod, ONLY: getin_p
     26    USE vertical_layers_mod, ONLY: presnivs
    2727
    2828    include "YOMCST.h"
    … …  
    120120    REAL, DIMENSION(klev+1) ::HREF
    121121    LOGICAL, SAVE :: gwd_reproductibilite_mpiomp=.true.
    122     LOGICAL, SAVE :: firstcall = .TRUE.
     122    LOGICAL, SAVE :: firstCALL = .TRUE.
    123123  !$OMP THREADPRIVATE(firstcall,gwd_reproductibilite_mpiomp)
    124124
    … …  
    199199
    200200!  ONLINE
    201     call assert(klon == (/size(pp, 1), size(tt, 1), size(uu, 1), &
     201    CALL assert(klon == (/size(pp, 1), size(tt, 1), size(uu, 1), &
    202202         size(vv, 1), size(rot,1), size(zustr), size(zvstr), size(d_u, 1), &
    203203         size(d_v, 1), &
    204204        size(east_gwstress,1), size(west_gwstress,1) /), &
    205205        "ACAMA_GWD_RANDO klon")
    206     call assert(klev == (/size(pp, 2), size(tt, 2), size(uu, 2), &
     206    CALL assert(klev == (/size(pp, 2), size(tt, 2), size(uu, 2), &
    207207         size(vv, 2), size(d_u, 2), size(d_v, 2), &
    208208         size(east_gwstress,2), size(west_gwstress,2) /), &

  • LMDZ6/branches/Amaury_dev/libf/phylmd/add_phys_tend_mod.F90

    r5099 r5101  
    100100
    101101USE dimphy, ONLY: klon, klev
    102 USE phys_state_var_mod, ONLY : phys_tstep
     102USE phys_state_var_mod, ONLY: phys_tstep
    103103USE phys_local_var_mod, ONLY: u_seri, v_seri, ql_seri, qs_seri, qbs_seri, q_seri, t_seri
    104104USE phys_state_var_mod, ONLY: ftsol
    … …  
    106106USE print_control_mod, ONLY: prt_level
    107107USE cmp_seri_mod
    108 USE phys_output_var_mod, ONLY : d_qw_col, d_ql_col, d_qs_col, d_qbs_col, d_qt_col, d_ek_col, d_h_dair_col &
     108USE phys_output_var_mod, ONLY: d_qw_col, d_ql_col, d_qs_col, d_qbs_col, d_qt_col, d_ek_col, d_h_dair_col &
    109109             , d_h_qw_col, d_h_ql_col, d_h_qs_col, d_h_qbs_col, d_h_col
    110110IMPLICIT none
    … …  
    192192     IF (flag_inhib_tend > 0) THEN
    193193        ! print some diagnostics if xxx_seri have changed
    194         call cmp_seri(flag_inhib_tend,text)
     194        CALL cmp_seri(flag_inhib_tend,text)
    195195     ENDIF
    196196     RETURN ! on n ajoute pas les tendance
    … …  
    292292             write(*,'(i3,2f14.4,2e14.2)') k,t_seri(i,k),zdt(i,k),q_seri(i,k),zdq(i,k)
    293293          ENDDO
    294           call print_debug_phys(i,debug_level,text)
     294          CALL print_debug_phys(i,debug_level,text)
    295295        ENDIF
    296296     ENDDO
    … …  
    394394             write(*,'(i3,2f14.4,2e14.2)') k,t_seri(i,k),zdt(i,k),q_seri(i,k),zdq(i,k)
    395395          ENDDO
    396           call print_debug_phys(i,debug_level,text)
     396          CALL print_debug_phys(i,debug_level,text)
    397397         ENDIF
    398398      ENDDO
    … …  
    412412            write(*,'(i3,2f14.4,2e14.2)') k,t_seri(i,k),zdt(i,k),q_seri(i,k),zdq(i,k)
    413413          ENDDO
    414           call print_debug_phys(i,debug_level,text)
     414          CALL print_debug_phys(i,debug_level,text)
    415415         ENDIF
    416416      ENDDO
    … …  
    501501!======================================================================
    502502
    503 USE phys_state_var_mod, ONLY : phys_tstep, ftsol
     503USE phys_state_var_mod, ONLY: phys_tstep, ftsol
    504504USE geometry_mod, ONLY: longitude_deg, latitude_deg
    505505USE print_control_mod, ONLY: prt_level
    506506USE cmp_seri_mod
    507 USE phys_output_var_mod, ONLY : d_qw_col, d_ql_col, d_qs_col, d_qbs_col, d_qt_col, d_ek_col, d_h_dair_col &
     507USE phys_output_var_mod, ONLY: d_qw_col, d_ql_col, d_qs_col, d_qbs_col, d_qt_col, d_ek_col, d_h_dair_col &
    508508             , d_h_qw_col, d_h_ql_col, d_h_qs_col, d_h_qbs_col, d_h_col
    509509IMPLICIT none
    … …  
    725725
    726726USE dimphy, ONLY: klon, klev
    727 USE phys_state_var_mod, ONLY : phys_tstep
    728 USE phys_state_var_mod, ONLY : topsw, toplw, solsw, sollw, rain_con, snow_con, bs_fall
     727USE phys_state_var_mod, ONLY: phys_tstep
     728USE phys_state_var_mod, ONLY: topsw, toplw, solsw, sollw, rain_con, snow_con, bs_fall
    729729USE geometry_mod, ONLY: longitude_deg, latitude_deg
    730730USE print_control_mod, ONLY: prt_level
    731731USE cmp_seri_mod
    732 USE phys_output_var_mod, ONLY : d_qw_col, d_ql_col, d_qs_col, d_qbs_col, d_qt_col, d_ek_col, d_h_dair_col &
     732USE phys_output_var_mod, ONLY: d_qw_col, d_ql_col, d_qs_col, d_qbs_col, d_qt_col, d_ek_col, d_h_dair_col &
    733733             , d_h_qw_col, d_h_ql_col, d_h_qs_col, d_h_qbs_col, d_h_col
    734734USE phys_local_var_mod, ONLY: evap, sens
    735735USE phys_local_var_mod, ONLY: u_seri, v_seri, ql_seri, qs_seri, qbs_seri, q_seri, t_seri &
    736736    , rain_lsc, snow_lsc
    737 USE climb_hq_mod, ONLY : d_h_col_vdf, f_h_bnd
     737USE climb_hq_mod, ONLY: d_h_col_vdf, f_h_bnd
    738738IMPLICIT none
    739739INCLUDE "YOMCST.h"

  • LMDZ6/branches/Amaury_dev/libf/phylmd/add_wake_tend.F90

    r5093 r5101  
    3232     IF (prt_level >= 5) then
    3333        write (*,*) "In add_wake_tend, after ",text
    34         call flush
     34        CALL flush
    3535     end if
    3636

  • LMDZ6/branches/Amaury_dev/libf/phylmd/alpale.F90

    r5099 r5101  
    1616
    1717  USE dimphy
    18   USE ioipsl_getin_p_mod, ONLY : getin_p
     18  USE ioipsl_getin_p_mod, ONLY: getin_p
    1919  USE print_control_mod, ONLY: mydebug=>debug , lunout, prt_level
    2020  USE phys_local_var_mod, ONLY: zw2       ! Variables internes non sauvegardees de la physique

  • LMDZ6/branches/Amaury_dev/libf/phylmd/alpale_th.F90

    r5099 r5101  
    1818
    1919  USE dimphy
    20   USE ioipsl_getin_p_mod, ONLY : getin_p
     20  USE ioipsl_getin_p_mod, ONLY: getin_p
    2121  USE print_control_mod, ONLY: mydebug=>debug , lunout, prt_level
    2222
    … …  
    101101!!   Control of the multiplication of no-trigger probabilities between calls
    102102!! to the convection scheme. If multiply_proba_notrig is .false., then
    103 !! proba_notrig is set to 1 at each call to alpale_th, so that only the last call
     103!! proba_notrig is set to 1 at each CALL to alpale_th, so that only the last CALL
    104104!! plays a role in the triggering of convection. If it is .true., then propa_notrig
    105105!! is saved between calls to convection and is reset to 1 only after calling the

  • LMDZ6/branches/Amaury_dev/libf/phylmd/alpale_wk.F90

    r5099 r5101  
    1212
    1313  USE dimphy, ONLY: klon
    14   USE ioipsl_getin_p_mod, ONLY : getin_p
     14  USE ioipsl_getin_p_mod, ONLY: getin_p
    1515  USE print_control_mod, ONLY: mydebug=>debug , lunout, prt_level
    1616

  • LMDZ6/branches/Amaury_dev/libf/phylmd/calbeta_clim.F90

    r5099 r5101  
    99  !======================================================================
    1010
    11   !USE phys_local_var_mod, ONLY : ideal_beta !pour faire la variable dans le
     11  !USE phys_local_var_mod, ONLY: ideal_beta !pour faire la variable dans le
    1212  ! physiq.f pour des sorties directes de beta
    1313

  • LMDZ6/branches/Amaury_dev/libf/phylmd/calcul_fluxs_mod.F90

    r5099 r5101  
    1616 
    1717   
    18     USE dimphy, ONLY : klon
     18    USE dimphy, ONLY: klon
    1919    USE indice_sol_mod
    2020    use sens_heat_rain_m, only: sens_heat_rain

  • LMDZ6/branches/Amaury_dev/libf/phylmd/calltherm.F90

    r5099 r5101  
    238238#ifdef ISOVERIF
    239239      if (iso_eau.gt.0) then
    240        call iso_verif_egalite_vect2D( &
     240       CALL iso_verif_egalite_vect2D( &
    241241             xt_seri,q_seri, &
    242242             'calltherm 174',ntiso,klon,klev)
    … …  
    408408!      write(*,*) 'd_xt_the(iso_hdo,i,k),d_q_the(i,k)=', &
    409409!     &   d_xt_the(iso_hdo,i,k),d_q_the(i,k)
    410       call iso_verif_aberrant_enc_vect2D( &
     410      CALL iso_verif_aberrant_enc_vect2D( &
    411411          xt_seri,q_seri, &
    412412          'calltherm 353, apres ajout d_xt_the',ntiso,klon,klev)
    … …  
    450450#ifdef ISOVERIF
    451451      if (iso_HDO.gt.0) then
    452       call iso_verif_aberrant_enc_vect2D( &
     452      CALL iso_verif_aberrant_enc_vect2D( &
    453453          xt_seri,q_seri, &
    454454          'calltherm 393, apres bidouille q<0',ntiso,klon,klev)

  • LMDZ6/branches/Amaury_dev/libf/phylmd/calwake.F90

    r5099 r5101  
    2929  USE indice_sol_mod, ONLY: is_oce
    3030  USE print_control_mod, ONLY: mydebug=>debug , lunout, prt_level
    31   USE lmdz_wake, ONLY : wake
     31  USE lmdz_wake, ONLY: wake
    3232  IMPLICIT NONE
    3333  ! ======================================================================

  • LMDZ6/branches/Amaury_dev/libf/phylmd/carbon_cycle_mod.F90

    r5099 r5101  
    219219  SUBROUTINE carbon_cycle_init()
    220220    ! This subroutine is called from tracco2i_init, which is called from phytrac_init only at first timestep.
    221     ! - Allocate variables. These variables must be allocated before first call to phys_output_write in physiq.
     221    ! - Allocate variables. These variables must be allocated before first CALL to phys_output_write in physiq.
    222222
    223223    USE dimphy
    … …  
    275275
    276276!    USE control_mod, ONLY: planet_type
    277     USE phys_cal_mod, ONLY : mth_cur
     277    USE phys_cal_mod, ONLY: mth_cur
    278278    USE mod_synchro_omp
    279279    USE mod_phys_lmdz_para, ONLY: is_mpi_root, is_omp_root

  • LMDZ6/branches/Amaury_dev/libf/phylmd/cdrag_mod.F90

    r5099 r5101  
    2727  USE indice_sol_mod
    2828  USE print_control_mod, ONLY: lunout, prt_level
    29   USE ioipsl_getin_p_mod, ONLY : getin_p
    30   USE lmdz_atke_turbulence_ini, ONLY : smmin, ric, cinf, cepsilon, pr_slope, pr_asym, pr_neut
     29  USE ioipsl_getin_p_mod, ONLY: getin_p
     30  USE lmdz_atke_turbulence_ini, ONLY: smmin, ric, cinf, cepsilon, pr_slope, pr_asym, pr_neut
    3131
    3232  IMPLICIT NONE
    … …  
    173173
    174174
    175   LOGICAL, SAVE :: firstcall = .TRUE.
     175  LOGICAL, SAVE :: firstCALL = .TRUE.
    176176  !$OMP THREADPRIVATE(firstcall)
    177177  INTEGER, SAVE :: iflag_corr_sta
    … …  
    263263   CALL getin_p('ok_cdrag_iter',ok_cdrag_iter)
    264264
    265    firstcall = .FALSE.
     265   firstCALL = .FALSE.
    266266 ENDIF
    267267
    … …  
    305305            mixte = .true.
    306306         ENDIF
    307          call clc_core_cp ( sqrt(zdu2),t1(i)-tsurf(i),q1(i)-qsurf(i),t1(i),q1(i),&
     307         CALL clc_core_cp ( sqrt(zdu2),t1(i)-tsurf(i),q1(i)-qsurf(i),t1(i),q1(i),&
    308308             zgeop1(i)/RG, zgeop1(i)/RG,  zgeop1(i)/RG,&
    309309             psol(i),nit_bulk,mixte,&
    … …  
    323323           PSSS = 0.0
    324324         ENDIF
    325          call ini_csts
    326          call ecumev6_flux( z_0m,t1(i),tsurf(i),&
     325         CALL ini_csts
     326         CALL ecumev6_flux( z_0m,t1(i),tsurf(i),&
    327327             q1(i),qsurf(i),sqrt(zdu2),zgeop1(i)/RG,PSSS,zgeop1(i)/RG,&
    328328             psol(i),pat1(i), OPRECIP, OPWEBB,&
    … …  
    342342         LPRECIP = .false.
    343343         LPWG    = .false.
    344          call ini_csts
     344         CALL ini_csts
    345345         block
    346346           real, dimension(1) :: z0m_1d, z_0h_1d, sqrt_zdu2_1d, zgeop1_rg_1d  ! convert scalar to 1D for call
    … …  
    349349           sqrt_zdu2_1d = sqrt(zdu2)
    350350           zgeop1_rg_1d=zgeop1(i)/RG
    351            call coare30_flux_cnrm(z0m_1d,t1(i),tsurf(i), q1(i),  &
     351           CALL coare30_flux_cnrm(z0m_1d,t1(i),tsurf(i), q1(i),  &
    352352               sqrt_zdu2_1d,zgeop1_rg_1d,zgeop1_rg_1d,psol(i),qsurf(i),PQSAT, &
    353353               PSFTH,PFSTQ,PUSTAR,PCD,PCDN,PCH,PCE,PRI, &
    … …  
    367367         ENDIF
    368368         write(*,*) "debug size",size(coeffs)
    369          call coare_cp(sqrt(zdu2),t1(i)-tsurf(i),q1(i)-qsurf(i),&
     369         CALL coare_cp(sqrt(zdu2),t1(i)-tsurf(i),q1(i)-qsurf(i),&
    370370               t1(i),q1(i),&
    371371               zgeop1(i)/RG,zgeop1(i)/RG,zgeop1(i)/RG,&

  • LMDZ6/branches/Amaury_dev/libf/phylmd/change_srf_frac_mod.F90

    r5099 r5101  
    2323
    2424    USE dimphy
    25     USE surface_data, ONLY : type_ocean,version_ocean
     25    USE surface_data, ONLY: type_ocean,version_ocean
    2626    USE limit_read_mod
    27     USE pbl_surface_mod, ONLY : pbl_surface_newfrac
    28     USE cpl_mod, ONLY : cpl_receive_frac
    29     USE ocean_slab_mod, ONLY : fsic, ocean_slab_frac
     27    USE pbl_surface_mod, ONLY: pbl_surface_newfrac
     28    USE cpl_mod, ONLY: cpl_receive_frac
     29    USE ocean_slab_mod, ONLY: fsic, ocean_slab_frac
    3030    USE indice_sol_mod
    3131    USE print_control_mod, ONLY: lunout

  • LMDZ6/branches/Amaury_dev/libf/phylmd/cltracrn.F90

    r5099 r5101  
    88 
    99  USE dimphy
    10   USE traclmdz_mod, ONLY : id_rn, id_pb
     10  USE traclmdz_mod, ONLY: id_rn, id_pb
    1111  USE indice_sol_mod
    1212

  • LMDZ6/branches/Amaury_dev/libf/phylmd/coare30_flux_cnrm_mod.F90

    r5099 r5101  
    7070
    7171
    72 !USE MODD_SEAFLUX_n, ONLY : SEAFLUX_t
     72!USE MODD_SEAFLUX_n, ONLY: SEAFLUX_t
    7373
    7474!----------Rajout Olive ---------
    … …  
    7979!--------------------------------
    8080
    81 USE MODD_CSTS,       ONLY : XKARMAN, XG, XSTEFAN, XRD, XRV, XPI, &
     81USE MODD_CSTS,       ONLY: XKARMAN, XG, XSTEFAN, XRD, XRV, XPI, &
    8282                            XLVTT, XCL, XCPD, XCPV, XRHOLW, XTT, &
    8383                            XP00
    8484
    85 !USE MODD_SURF_ATM,   ONLY : XVZ0CM
    86 
    87 !USE MODD_SURF_PAR,   ONLY : XUNDEF, XSURF_EPSILON
     85!USE MODD_SURF_ATM,   ONLY: XVZ0CM
     86
     87!USE MODD_SURF_PAR,   ONLY: XUNDEF, XSURF_EPSILON
    8888!USE MODD_WATER_PAR
    8989
    … …  
    9898
    9999
    100 !USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
    101 !USE PARKIND1  ,ONLY : JPRB
     100!USE YOMHOOK   ,ONLY: LHOOK,   DR_HOOK
     101!USE PARKIND1  ,ONLY: JPRB
    102102
    103103IMPLICIT NONE

  • LMDZ6/branches/Amaury_dev/libf/phylmd/coare_cp_mod.F90

    r5099 r5101  
    6161  !taylor and yelland  zo=1200 h*(L/h)**4.5 jwave=2
    6262
    63   USE MODD_CSTS,       ONLY : XKARMAN, XG, XSTEFAN, XRD, XRV, XPI, &
     63  USE MODD_CSTS,       ONLY: XKARMAN, XG, XSTEFAN, XRD, XRV, XPI, &
    6464                            XLVTT, XCL, XCPD, XCPV, XRHOLW, XTT, &
    6565                            XP00

  • LMDZ6/branches/Amaury_dev/libf/phylmd/concvl.F90

    r5099 r5101  
    529529! c     e      , t1,q1,ql,qs,u,v,paprs,pplay
    530530! c     s      , d_h_vcol, d_qt, d_qw, d_ql, d_qs, d_ec)
    531 ! c         call diagphy(paire,ztit,ip_ebil
     531! c         CALL diagphy(paire,ztit,ip_ebil
    532532! c     e      , zero_v, zero_v, zero_v, zero_v, zero_v
    533533! c     e      , zero_v, rain, zero_v, ztsol

  • LMDZ6/branches/Amaury_dev/libf/phylmd/conemav.F90

    r2346 r5101  
    119119    rflag(i) = iflag(i)
    120120  END DO
    121   ! call dump2d(iim,jjm-1,rflag(2:klon-1),'FLAG CONVECTION   ')
     121  ! CALL dump2d(iim,jjm-1,rflag(2:klon-1),'FLAG CONVECTION   ')
    122122  ! if (klon.eq.1) then
    123123  ! print*,'IFLAG ',iflag

  • LMDZ6/branches/Amaury_dev/libf/phylmd/conf_phys_m.F90

    r5099 r5101  
    2626    USE surface_data
    2727    USE phys_cal_mod
    28     USE carbon_cycle_mod, ONLY : carbon_cycle_tr, carbon_cycle_cpl, carbon_cycle_rad, level_coupling_esm
    29     USE carbon_cycle_mod, ONLY : read_fco2_ocean_cor, var_fco2_ocean_cor
    30     USE carbon_cycle_mod, ONLY : read_fco2_land_cor, var_fco2_land_cor
    31     USE chemistry_cycle_mod, ONLY : dms_cycle_cpl, n2o_cycle_cpl
    32     USE mod_grid_phy_lmdz, ONLY : klon_glo
    33     USE print_control_mod, ONLY : lunout
    34     use config_ocean_skin_m, only : config_ocean_skin
    35     USE phys_state_var_mod, ONLY : phys_tstep
    36     USE infotrac_phy, ONLY : type_trac
     28    USE carbon_cycle_mod, ONLY: carbon_cycle_tr, carbon_cycle_cpl, carbon_cycle_rad, level_coupling_esm
     29    USE carbon_cycle_mod, ONLY: read_fco2_ocean_cor, var_fco2_ocean_cor
     30    USE carbon_cycle_mod, ONLY: read_fco2_land_cor, var_fco2_land_cor
     31    USE chemistry_cycle_mod, ONLY: dms_cycle_cpl, n2o_cycle_cpl
     32    USE mod_grid_phy_lmdz, ONLY: klon_glo
     33    USE print_control_mod, ONLY: lunout
     34    use config_ocean_skin_m, ONLY: config_ocean_skin
     35    USE phys_state_var_mod, ONLY: phys_tstep
     36    USE infotrac_phy, ONLY: type_trac
    3737    USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_STRATAER
    3838
    … …  
    14641464
    14651465    iflag_pbl_split_omp = 0
    1466     call getin('iflag_pbl_split', iflag_pbl_split_omp)
     1466    CALL getin('iflag_pbl_split', iflag_pbl_split_omp)
    14671467
    14681468    !Config Key  = iflag_order2_sollw
    … …  
    28352835
    28362836    !$OMP END MASTER
    2837     call config_ocean_skin
     2837    CALL config_ocean_skin
    28382838
    28392839  END SUBROUTINE conf_phys
    … …  
    28462846
    28472847  USE IOIPSL
    2848   USE print_control_mod, ONLY : lunout
     2848  USE print_control_mod, ONLY: lunout
    28492849  IMPLICIT NONE
    28502850  ! Configuration de l'interace atm/surf

  • LMDZ6/branches/Amaury_dev/libf/phylmd/conflx.F90

    r2346 r5101  
    539539    END DO
    540540
    541     icall = 0
     541    iCALL = 0
    542542    CALL flxadjtq(paph(1,k), ptenh(1,k), pqsenh(1,k), llflag, icall)
    543543
    … …  
    660660    END DO
    661661
    662     icall = 1
     662    iCALL = 1
    663663    CALL flxadjtq(paph(1,k), ptu(1,k), pqu(1,k), llflag, icall)
    664664
    … …  
    903903    ! ----------------------------------------------------------------------
    904904
    905     icall = 1
     905    iCALL = 1
    906906    CALL flxadjtq(paph(1,k), ptu(1,k), pqu(1,k), llflag, icall)
    907907
    … …  
    13591359    IF (is==0) GO TO 290
    13601360
    1361     icall = 2
     1361    iCALL = 2
    13621362    CALL flxadjtq(paph(1,k), ztenwb(1,k), zqenwb(1,k), llo2, icall)
    13631363
    … …  
    14851485    END DO
    14861486
    1487     icall = 2
     1487    iCALL = 2
    14881488    CALL flxadjtq(paph(1,k), ptd(1,k), pqd(1,k), llo2, icall)
    14891489
    … …  
    15121512  ! Objet: ajustement entre T et Q
    15131513  ! ======================================================================
    1514   ! NOTE: INPUT PARAMETER kcall DEFINES CALCULATION AS
     1514  ! NOTE: INPUT PARAMETER kCALL DEFINES CALCULATION AS
    15151515  ! kcall=0    ENV. T AND QS IN*CUINI*
    15161516  ! kcall=1  CONDENSATION IN UPDRAFTS  (E.G. CUBASE, CUASC)

  • LMDZ6/branches/Amaury_dev/libf/phylmd/convect1.F90

    r2346 r5101  
    3333  ! LIBRARIES OF RESIDENCE: /a/ops/lib/libfcst159.a
    3434
    35   ! USAGE: call convect1(len,nd,noff,minorig,
     35  ! USAGE: CALL convect1(len,nd,noff,minorig,
    3636  ! &                   t,q,qs,u,v,
    3737  ! &                   p,ph,iflag,ft,

  • LMDZ6/branches/Amaury_dev/libf/phylmd/convect2.F90

    r2346 r5101  
    3636  ! LIBRARIES OF RESIDENCE: /a/ops/lib/libfcst159.a
    3737
    38   ! USAGE: call convect2(ncum,idcum,len,nd,nl,minorig,
     38  ! USAGE: CALL convect2(ncum,idcum,len,nd,nl,minorig,
    3939  ! &                 nk1,icb1,
    4040  ! &                 t1,q1,qs1,u1,v1,gz1,tv1,tp1,tvp1,clw1,h1,
    … …  
    656656  ! K Emanuel fix
    657657
    658   ! call zilch(byp,ncum)
     658  ! CALL zilch(byp,ncum)
    659659  ! do 530 k=minorig+1,nl-1
    660660  ! do 520 i=1,ncum

  • LMDZ6/branches/Amaury_dev/libf/phylmd/convect3.F90

    r2346 r5101  
    13431343
    13441344  ! @$$cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
    1345   ! @$$         call writeg1d(1,klev,ma,'ma  ','ma  ')
    1346   ! @$$          call writeg1d(1,klev,upwd,'upwd  ','upwd  ')
    1347   ! @$$          call writeg1d(1,klev,dnwd,'dnwd  ','dnwd  ')
    1348   ! @$$          call writeg1d(1,klev,dnwd0,'dnwd0  ','dnwd0  ')
    1349   ! @$$          call writeg1d(1,klev,tvp,'tvp  ','tvp  ')
    1350   ! @$$          call writeg1d(1,klev,tra(1:klev,3),'tra3  ','tra3  ')
    1351   ! @$$          call writeg1d(1,klev,tra(1:klev,4),'tra4  ','tra4  ')
    1352   ! @$$          call writeg1d(1,klev,tra(1:klev,5),'tra5  ','tra5  ')
    1353   ! @$$          call writeg1d(1,klev,tra(1:klev,6),'tra6  ','tra6  ')
    1354   ! @$$          call writeg1d(1,klev,tra(1:klev,7),'tra7  ','tra7  ')
    1355   ! @$$          call writeg1d(1,klev,tra(1:klev,8),'tra8  ','tra8  ')
    1356   ! @$$          call writeg1d(1,klev,tra(1:klev,9),'tra9  ','tra9  ')
    1357   ! @$$          call writeg1d(1,klev,tra(1:klev,10),'tra10','tra10')
    1358   ! @$$          call writeg1d(1,klev,tra(1:klev,11),'tra11','tra11')
    1359   ! @$$          call writeg1d(1,klev,tra(1:klev,12),'tra12','tra12')
    1360   ! @$$          call writeg1d(1,klev,tra(1:klev,13),'tra13','tra13')
    1361   ! @$$          call writeg1d(1,klev,tra(1:klev,14),'tra14','tra14')
    1362   ! @$$          call writeg1d(1,klev,tra(1:klev,15),'tra15','tra15')
    1363   ! @$$          call writeg1d(1,klev,tra(1:klev,16),'tra16','tra16')
    1364   ! @$$          call writeg1d(1,klev,tra(1:klev,17),'tra17','tra17')
    1365   ! @$$          call writeg1d(1,klev,tra(1:klev,18),'tra18','tra18')
    1366   ! @$$          call writeg1d(1,klev,tra(1:klev,19),'tra19','tra19')
    1367   ! @$$          call writeg1d(1,klev,tra(1:klev,20),'tra20','tra20 ')
    1368   ! @$$          call writeg1d(1,klev,trap(1:klev,1),'trp1','trp1')
    1369   ! @$$          call writeg1d(1,klev,trap(1:klev,2),'trp2','trp2')
    1370   ! @$$          call writeg1d(1,klev,trap(1:klev,3),'trp3','trp3')
    1371   ! @$$          call writeg1d(1,klev,trap(1:klev,4),'trp4','trp4')
    1372   ! @$$          call writeg1d(1,klev,trap(1:klev,5),'trp5','trp5')
    1373   ! @$$          call writeg1d(1,klev,trap(1:klev,10),'trp10','trp10')
    1374   ! @$$          call writeg1d(1,klev,trap(1:klev,12),'trp12','trp12')
    1375   ! @$$          call writeg1d(1,klev,trap(1:klev,15),'trp15','trp15')
    1376   ! @$$          call writeg1d(1,klev,trap(1:klev,20),'trp20','trp20')
    1377   ! @$$          call writeg1d(1,klev,ftra(1:klev,1),'ftr1  ','ftr1  ')
    1378   ! @$$          call writeg1d(1,klev,ftra(1:klev,2),'ftr2  ','ftr2  ')
    1379   ! @$$          call writeg1d(1,klev,ftra(1:klev,3),'ftr3  ','ftr3  ')
    1380   ! @$$          call writeg1d(1,klev,ftra(1:klev,4),'ftr4  ','ftr4  ')
    1381   ! @$$          call writeg1d(1,klev,ftra(1:klev,5),'ftr5  ','ftr5  ')
    1382   ! @$$          call writeg1d(1,klev,ftra(1:klev,6),'ftr6  ','ftr6  ')
    1383   ! @$$          call writeg1d(1,klev,ftra(1:klev,7),'ftr7  ','ftr7  ')
    1384   ! @$$          call writeg1d(1,klev,ftra(1:klev,8),'ftr8  ','ftr8  ')
    1385   ! @$$          call writeg1d(1,klev,ftra(1:klev,9),'ftr9  ','ftr9  ')
    1386   ! @$$          call writeg1d(1,klev,ftra(1:klev,10),'ftr10','ftr10')
    1387   ! @$$          call writeg1d(1,klev,ftra(1:klev,11),'ftr11','ftr11')
    1388   ! @$$          call writeg1d(1,klev,ftra(1:klev,12),'ftr12','ftr12')
    1389   ! @$$          call writeg1d(1,klev,ftra(1:klev,13),'ftr13','ftr13')
    1390   ! @$$          call writeg1d(1,klev,ftra(1:klev,14),'ftr14','ftr14')
    1391   ! @$$          call writeg1d(1,klev,ftra(1:klev,15),'ftr15','ftr15')
    1392   ! @$$          call writeg1d(1,klev,ftra(1:klev,16),'ftr16','ftr16')
    1393   ! @$$          call writeg1d(1,klev,ftra(1:klev,17),'ftr17','ftr17')
    1394   ! @$$          call writeg1d(1,klev,ftra(1:klev,18),'ftr18','ftr18')
    1395   ! @$$          call writeg1d(1,klev,ftra(1:klev,19),'ftr19','ftr19')
    1396   ! @$$          call writeg1d(1,klev,ftra(1:klev,20),'ftr20','ftr20 ')
    1397   ! @$$          call writeg1d(1,klev,mp,'mp  ','mp ')
    1398   ! @$$          call writeg1d(1,klev,Mke,'Mke  ','Mke ')
     1345  ! @$$         CALL writeg1d(1,klev,ma,'ma  ','ma  ')
     1346  ! @$$          CALL writeg1d(1,klev,upwd,'upwd  ','upwd  ')
     1347  ! @$$          CALL writeg1d(1,klev,dnwd,'dnwd  ','dnwd  ')
     1348  ! @$$          CALL writeg1d(1,klev,dnwd0,'dnwd0  ','dnwd0  ')
     1349  ! @$$          CALL writeg1d(1,klev,tvp,'tvp  ','tvp  ')
     1350  ! @$$          CALL writeg1d(1,klev,tra(1:klev,3),'tra3  ','tra3  ')
     1351  ! @$$          CALL writeg1d(1,klev,tra(1:klev,4),'tra4  ','tra4  ')
     1352  ! @$$          CALL writeg1d(1,klev,tra(1:klev,5),'tra5  ','tra5  ')
     1353  ! @$$          CALL writeg1d(1,klev,tra(1:klev,6),'tra6  ','tra6  ')
     1354  ! @$$          CALL writeg1d(1,klev,tra(1:klev,7),'tra7  ','tra7  ')
     1355  ! @$$          CALL writeg1d(1,klev,tra(1:klev,8),'tra8  ','tra8  ')
     1356  ! @$$          CALL writeg1d(1,klev,tra(1:klev,9),'tra9  ','tra9  ')
     1357  ! @$$          CALL writeg1d(1,klev,tra(1:klev,10),'tra10','tra10')
     1358  ! @$$          CALL writeg1d(1,klev,tra(1:klev,11),'tra11','tra11')
     1359  ! @$$          CALL writeg1d(1,klev,tra(1:klev,12),'tra12','tra12')
     1360  ! @$$          CALL writeg1d(1,klev,tra(1:klev,13),'tra13','tra13')
     1361  ! @$$          CALL writeg1d(1,klev,tra(1:klev,14),'tra14','tra14')
     1362  ! @$$          CALL writeg1d(1,klev,tra(1:klev,15),'tra15','tra15')
     1363  ! @$$          CALL writeg1d(1,klev,tra(1:klev,16),'tra16','tra16')
     1364  ! @$$          CALL writeg1d(1,klev,tra(1:klev,17),'tra17','tra17')
     1365  ! @$$          CALL writeg1d(1,klev,tra(1:klev,18),'tra18','tra18')
     1366  ! @$$          CALL writeg1d(1,klev,tra(1:klev,19),'tra19','tra19')
     1367  ! @$$          CALL writeg1d(1,klev,tra(1:klev,20),'tra20','tra20 ')
     1368  ! @$$          CALL writeg1d(1,klev,trap(1:klev,1),'trp1','trp1')
     1369  ! @$$          CALL writeg1d(1,klev,trap(1:klev,2),'trp2','trp2')
     1370  ! @$$          CALL writeg1d(1,klev,trap(1:klev,3),'trp3','trp3')
     1371  ! @$$          CALL writeg1d(1,klev,trap(1:klev,4),'trp4','trp4')
     1372  ! @$$          CALL writeg1d(1,klev,trap(1:klev,5),'trp5','trp5')
     1373  ! @$$          CALL writeg1d(1,klev,trap(1:klev,10),'trp10','trp10')
     1374  ! @$$          CALL writeg1d(1,klev,trap(1:klev,12),'trp12','trp12')
     1375  ! @$$          CALL writeg1d(1,klev,trap(1:klev,15),'trp15','trp15')
     1376  ! @$$          CALL writeg1d(1,klev,trap(1:klev,20),'trp20','trp20')
     1377  ! @$$          CALL writeg1d(1,klev,ftra(1:klev,1),'ftr1  ','ftr1  ')
     1378  ! @$$          CALL writeg1d(1,klev,ftra(1:klev,2),'ftr2  ','ftr2  ')
     1379  ! @$$          CALL writeg1d(1,klev,ftra(1:klev,3),'ftr3  ','ftr3  ')
     1380  ! @$$          CALL writeg1d(1,klev,ftra(1:klev,4),'ftr4  ','ftr4  ')
     1381  ! @$$          CALL writeg1d(1,klev,ftra(1:klev,5),'ftr5  ','ftr5  ')
     1382  ! @$$          CALL writeg1d(1,klev,ftra(1:klev,6),'ftr6  ','ftr6  ')
     1383  ! @$$          CALL writeg1d(1,klev,ftra(1:klev,7),'ftr7  ','ftr7  ')
     1384  ! @$$          CALL writeg1d(1,klev,ftra(1:klev,8),'ftr8  ','ftr8  ')
     1385  ! @$$          CALL writeg1d(1,klev,ftra(1:klev,9),'ftr9  ','ftr9  ')
     1386  ! @$$          CALL writeg1d(1,klev,ftra(1:klev,10),'ftr10','ftr10')
     1387  ! @$$          CALL writeg1d(1,klev,ftra(1:klev,11),'ftr11','ftr11')
     1388  ! @$$          CALL writeg1d(1,klev,ftra(1:klev,12),'ftr12','ftr12')
     1389  ! @$$          CALL writeg1d(1,klev,ftra(1:klev,13),'ftr13','ftr13')
     1390  ! @$$          CALL writeg1d(1,klev,ftra(1:klev,14),'ftr14','ftr14')
     1391  ! @$$          CALL writeg1d(1,klev,ftra(1:klev,15),'ftr15','ftr15')
     1392  ! @$$          CALL writeg1d(1,klev,ftra(1:klev,16),'ftr16','ftr16')
     1393  ! @$$          CALL writeg1d(1,klev,ftra(1:klev,17),'ftr17','ftr17')
     1394  ! @$$          CALL writeg1d(1,klev,ftra(1:klev,18),'ftr18','ftr18')
     1395  ! @$$          CALL writeg1d(1,klev,ftra(1:klev,19),'ftr19','ftr19')
     1396  ! @$$          CALL writeg1d(1,klev,ftra(1:klev,20),'ftr20','ftr20 ')
     1397  ! @$$          CALL writeg1d(1,klev,mp,'mp  ','mp ')
     1398  ! @$$          CALL writeg1d(1,klev,Mke,'Mke  ','Mke ')
    13991399
    14001400

  • LMDZ6/branches/Amaury_dev/libf/phylmd/cpl_mod.F90

    r5099 r5101  
    1515! Use statements
    1616!*************************************************************************************
    17   USE dimphy, ONLY : klon
     17  USE dimphy, ONLY: klon
    1818  USE mod_phys_lmdz_para
    1919  USE ioipsl
    … …  
    133133
    134134  SUBROUTINE cpl_init(dtime, rlon, rlat)
    135     USE carbon_cycle_mod, ONLY : carbon_cycle_cpl, fco2_ocn_day
     135    USE carbon_cycle_mod, ONLY: carbon_cycle_cpl, fco2_ocn_day
    136136    USE surface_data
    137137    USE indice_sol_mod
    138     USE mod_grid_phy_lmdz, ONLY : nbp_lon, nbp_lat, grid1dTo2d_glo, klon_glo, grid_type, unstructured, regular_lonlat
     138    USE mod_grid_phy_lmdz, ONLY: nbp_lon, nbp_lat, grid1dTo2d_glo, klon_glo, grid_type, unstructured, regular_lonlat
    139139    USE time_phylmdz_mod, ONLY: annee_ref, day_ini, itau_phy, itaufin_phy
    140140    USE print_control_mod, ONLY: lunout
    141     USE geometry_mod, ONLY : longitude_deg, latitude_deg, ind_cell_glo, cell_area
     141    USE geometry_mod, ONLY: longitude_deg, latitude_deg, ind_cell_glo, cell_area
    142142    USE ioipsl_getin_p_mod, ONLY: getin_p
    143143    use config_ocean_skin_m, only: activate_ocean_skin
    … …  
    407407! are stored in this module.
    408408    USE surface_data
    409     USE geometry_mod, ONLY : longitude_deg, latitude_deg
    410     USE carbon_cycle_mod, ONLY : carbon_cycle_cpl
     409    USE geometry_mod, ONLY: longitude_deg, latitude_deg
     410    USE carbon_cycle_mod, ONLY: carbon_cycle_cpl
    411411    USE indice_sol_mod
    412412    USE time_phylmdz_mod, ONLY: start_time, itau_phy
    413     USE mod_grid_phy_lmdz, ONLY : nbp_lon, nbp_lat
     413    USE mod_grid_phy_lmdz, ONLY: nbp_lon, nbp_lat
    414414    use config_ocean_skin_m, only: activate_ocean_skin
    415415
    … …  
    537537! The temperature is transformed into 1D array with valid points from index 1 to knon.
    538538
    539     USE carbon_cycle_mod, ONLY : carbon_cycle_cpl, fco2_ocn_day
     539    USE carbon_cycle_mod, ONLY: carbon_cycle_cpl, fco2_ocn_day
    540540    USE indice_sol_mod
    541541    use config_ocean_skin_m, only: activate_ocean_skin
    … …  
    659659    ! fractions do not change between coupling time-steps.
    660660
    661     USE carbon_cycle_mod, ONLY : carbon_cycle_cpl, co2_send
     661    USE carbon_cycle_mod, ONLY: carbon_cycle_cpl, co2_send
    662662    USE indice_sol_mod
    663     USE mod_grid_phy_lmdz, ONLY : nbp_lon, nbp_lat
     663    USE mod_grid_phy_lmdz, ONLY: nbp_lon, nbp_lat
    664664    use config_ocean_skin_m, only: activate_ocean_skin
    665665
    … …  
    919919! the coupler.
    920920
    921     USE carbon_cycle_mod, ONLY : carbon_cycle_cpl
     921    USE carbon_cycle_mod, ONLY: carbon_cycle_cpl
    922922    USE indice_sol_mod
    923     USE mod_grid_phy_lmdz, ONLY : nbp_lon, nbp_lat
     923    USE mod_grid_phy_lmdz, ONLY: nbp_lon, nbp_lat
    924924
    925925! Input arguments
    … …  
    11171117! (it is done in cpl_send_seaice_fields).
    11181118
    1119     USE mod_grid_phy_lmdz, ONLY : nbp_lon, nbp_lat
     1119    USE mod_grid_phy_lmdz, ONLY: nbp_lon, nbp_lat
    11201120
    11211121! Input arguments
    … …  
    11731173! will be done in cpl_send_seaice_fields.
    11741174
    1175     USE mod_grid_phy_lmdz, ONLY : nbp_lon, nbp_lat
     1175    USE mod_grid_phy_lmdz, ONLY: nbp_lon, nbp_lat
    11761176
    11771177! Input varibales
    … …  
    12271227
    12281228    USE surface_data
    1229     USE carbon_cycle_mod, ONLY : carbon_cycle_cpl
     1229    USE carbon_cycle_mod, ONLY: carbon_cycle_cpl
    12301230    USE indice_sol_mod
    1231     USE mod_grid_phy_lmdz, ONLY : nbp_lon, nbp_lat
     1231    USE mod_grid_phy_lmdz, ONLY: nbp_lon, nbp_lat
    12321232    USE time_phylmdz_mod, ONLY: start_time, itau_phy
    12331233    USE config_ocean_skin_m, only: activate_ocean_skin
    … …  
    15541554!   champ_out    champ sur la grille 'gatherd'
    15551555
    1556     USE mod_grid_phy_lmdz, ONLY : nbp_lon, nbp_lat
     1556    USE mod_grid_phy_lmdz, ONLY: nbp_lon, nbp_lat
    15571557
    15581558! Input
    … …  
    16011601!   champ_out    champ sur la grille 2D
    16021602
    1603     USE mod_grid_phy_lmdz, ONLY : nbp_lon, nbp_lat
     1603    USE mod_grid_phy_lmdz, ONLY: nbp_lon, nbp_lat
    16041604   
    16051605! Input arguments

  • LMDZ6/branches/Amaury_dev/libf/phylmd/create_etat0_limit_unstruct_mod.F90

    r4938 r5101  
    1414  USE mod_phys_lmdz_para, ONLY: is_omp_master
    1515  USE mod_grid_phy_lmdz, ONLY: grid_type, unstructured
    16   USE ioipsl, ONLY : ioget_year_len
     16  USE ioipsl, ONLY: ioget_year_len
    1717  USE ioipsl_getin_p_mod, ONLY: getin_p
    18   USE time_phylmdz_mod, ONLY : annee_ref
     18  USE time_phylmdz_mod, ONLY: annee_ref
    1919  USE create_etat0_unstruct_mod, ONLY: init_create_etat0_unstruct
    2020  IMPLICIT NONE

  • LMDZ6/branches/Amaury_dev/libf/phylmd/create_limit_unstruct_mod.F90

    r5099 r5101  
    1111  USE dimphy
    1212  USE lmdz_xios
    13   USE ioipsl,             ONLY : ioget_year_len
    14   USE time_phylmdz_mod, ONLY : annee_ref
     13  USE ioipsl,             ONLY: ioget_year_len
     14  USE time_phylmdz_mod, ONLY: annee_ref
    1515  USE indice_sol_mod
    1616  USE phys_state_var_mod
    … …  
    181181  USE pchfe_95_m, only: pchfe_95
    182182  USE arth_m, only: arth
    183   USE dimphy, ONLY : klon
    184   USE ioipsl,             ONLY : ioget_year_len
    185   USE time_phylmdz_mod, ONLY : annee_ref
     183  USE dimphy, ONLY: klon
     184  USE ioipsl,             ONLY: ioget_year_len
     185  USE time_phylmdz_mod, ONLY: annee_ref
    186186  USE mod_phys_lmdz_para
    187187  IMPLICIT NONE
    … …  
    231231
    232232  !-------------------------------------------------------------------------------
    233     USE ioipsl, ONLY : ioget_calendar,ioconf_calendar,lock_calendar,ioget_year_len
     233    USE ioipsl, ONLY: ioget_calendar,ioconf_calendar,lock_calendar,ioget_year_len
    234234    IMPLICIT NONE
    235235  !-------------------------------------------------------------------------------
    … …  
    264264
    265265  !-------------------------------------------------------------------------------
    266     USE ioipsl, ONLY : ioget_calendar,ioconf_calendar,lock_calendar,ioget_mon_len
     266    USE ioipsl, ONLY: ioget_calendar,ioconf_calendar,lock_calendar,ioget_mon_len
    267267    IMPLICIT NONE
    268268  !-------------------------------------------------------------------------------

  • LMDZ6/branches/Amaury_dev/libf/phylmd/ctstar.F90

    r2386 r5101  
    6161
    6262!USE PARKIND1
    63 !<http://intra.cnrm.meteo.fr/eac/ARPCLI5.2/doci/code/arpcli5.2/xrd/module/parkind1.F90.php#parkind1>  ,ONLY : JPIM     ,JPRB
     63!<http://intra.cnrm.meteo.fr/eac/ARPCLI5.2/doci/code/arpcli5.2/xrd/module/parkind1.F90.php#parkind1>  ,ONLY: JPIM     ,JPRB
    6464!USE YOMHOOK
    65 !<http://intra.cnrm.meteo.fr/eac/ARPCLI5.2/doci/code/arpcli5.2/xrd/module/yomhook.F90.php#yomhook>   ,ONLY : LHOOK,   DR_HOOK
     65!<http://intra.cnrm.meteo.fr/eac/ARPCLI5.2/doci/code/arpcli5.2/xrd/module/yomhook.F90.php#yomhook>   ,ONLY: LHOOK,   DR_HOOK
    6666
    67 !USE YOMCST, ONLY : RG, RD
    68 !<http://intra.cnrm.meteo.fr/eac/ARPCLI5.2/doci/code/arpcli5.2/arp/module/yomcst.F90.php#yomcst>   , ONLY :  RG
     67!USE YOMCST, ONLY: RG, RD
     68!<http://intra.cnrm.meteo.fr/eac/ARPCLI5.2/doci/code/arpcli5.2/arp/module/yomcst.F90.php#yomcst>   , ONLY:  RG
    6969
    7070!<http://intra.cnrm.meteo.fr/eac/ARPCLI5.2/doci/code/arpcli5.2/xrd/support/rg.F.php#rg>       ,RD
    7171!USE YOMSTA
    72 !<http://intra.cnrm.meteo.fr/eac/ARPCLI5.2/doci/code/arpcli5.2/arp/module/yomsta.F90.php#yomsta>   , ONLY : RDTDZ1
     72!<http://intra.cnrm.meteo.fr/eac/ARPCLI5.2/doci/code/arpcli5.2/arp/module/yomsta.F90.php#yomsta>   , ONLY: RDTDZ1
    7373
    7474IMPLICIT NONE

  • LMDZ6/branches/Amaury_dev/libf/phylmd/cv30_routines.F90

    r5093 r5101  
    11291129  ! K Emanuel fix
    11301130
    1131   ! call zilch(byp,ncum)
     1131  ! CALL zilch(byp,ncum)
    11321132  ! do 530 k=minorig+1,nl-1
    11331133  ! do 520 i=1,ncum
    … …  
    11561156  ! J Teixeira fix
    11571157
    1158   ! ori      call zilch(byp,ncum)
     1158  ! ori      CALL zilch(byp,ncum)
    11591159  ! ori      do 515 i=1,ncum
    11601160  ! ori        lcape(i)=.true.
    … …  
    16241624  ! =====================================================================
    16251625
    1626   ! ym      call zilch(asum,ncum*nd)
    1627   ! ym      call zilch(bsum,ncum*nd)
    1628   ! ym      call zilch(csum,ncum*nd)
     1626  ! ym      CALL zilch(asum,ncum*nd)
     1627  ! ym      CALL zilch(bsum,ncum*nd)
     1628  ! ym      CALL zilch(csum,ncum*nd)
    16291629  CALL zilch(asum, nloc*nd)
    16301630  CALL zilch(csum, nloc*nd)

  • LMDZ6/branches/Amaury_dev/libf/phylmd/cv3_routines.F90

    r5099 r5101  
    77SUBROUTINE cv3_param(nd, k_upper, delt)
    88
    9   USE ioipsl_getin_p_mod, ONLY : getin_p
     9  USE ioipsl_getin_p_mod, ONLY: getin_p
    1010  use mod_phys_lmdz_para
    1111  IMPLICIT NONE
    … …  
    309309                    cpnk, hnk, nk, icb, icbmax, iflag, gznk, plcl)
    310310
    311   USE mod_phys_lmdz_transfert_para, ONLY : bcast
     311  USE mod_phys_lmdz_transfert_para, ONLY: bcast
    312312  USE add_phys_tend_mod, ONLY: fl_cor_ebil
    313313  USE print_control_mod, ONLY: prt_level
    … …  
    382382    PRINT *, ' ok_new_feed: ', ok_new_feed
    383383!$OMP END MASTER
    384     call bcast(ok_new_feed)
     384    CALL bcast(ok_new_feed)
    385385    first = .FALSE.   
    386386  END IF
    … …  
    579579! print*,'icb dans cv3_feed '
    580580! write(*,'(64i2)') icb(2:len-1)
    581 ! call dump2d(64,43,'plcl dans cv3_feed ',plcl(2:len-1))
     581! CALL dump2d(64,43,'plcl dans cv3_feed ',plcl(2:len-1))
    582582
    583583  DO i = 1, len
    … …  
    19121912!    K Emanuel fix
    19131913
    1914 !    call zilch(byp,ncum)
     1914!    CALL zilch(byp,ncum)
    19151915!    do 530 k=minorig+1,nl-1
    19161916!     do 520 i=1,ncum
    … …  
    19391939! J Teixeira fix
    19401940
    1941 ! ori      call zilch(byp,ncum)
     1941! ori      CALL zilch(byp,ncum)
    19421942! ori      do 515 i=1,ncum
    19431943! ori        lcape(i)=.true.
    … …  
    34503450
    34513451    USE print_control_mod, ONLY: lunout, prt_level
    3452     USE add_phys_tend_mod, only : fl_cor_ebil
     3452    USE add_phys_tend_mod, ONLY: fl_cor_ebil
    34533453
    34543454  IMPLICIT NONE

  • LMDZ6/branches/Amaury_dev/libf/phylmd/cv_driver.F90

    r5099 r5101  
    565565
    566566      ! epmax_cape
    567       call cv30_epmax_fn_cape(nloc,ncum,nd &
     567      CALL cv30_epmax_fn_cape(nloc,ncum,nd &
    568568                ,cape,ep,hp,icb,inb,clw,nk,t,h,lv &
    569569                ,epmax_diag)
    … …  
    682682SUBROUTINE cv_flag(iflag_ice_thermo)
    683683
    684   USE ioipsl_getin_p_mod, ONLY : getin_p
     684  USE ioipsl_getin_p_mod, ONLY: getin_p
    685685
    686686  IMPLICIT NONE
    … …  
    708708  ! calculee en une seule iteration.
    709709  icvflag_Tpa=0 
    710   call getin_p('icvflag_Tpa', icvflag_Tpa)
     710  CALL getin_p('icvflag_Tpa', icvflag_Tpa)
    711711
    712712  RETURN

  • LMDZ6/branches/Amaury_dev/libf/phylmd/cv_routines.F90

    r2311 r5101  
    686686  ! K Emanuel fix
    687687
    688   ! call zilch(byp,ncum)
     688  ! CALL zilch(byp,ncum)
    689689  ! do 530 k=minorig+1,nl-1
    690690  ! do 520 i=1,ncum

  • LMDZ6/branches/Amaury_dev/libf/phylmd/cva_driver.F90

    r5099 r5101  
    814814! write(*,'(64i1)') iflag1(2:len-1)
    815815
    816 ! call dump2d(iim,jjm-1,sig1(2)
     816! CALL dump2d(iim,jjm-1,sig1(2)
    817817  END IF
    818818
    … …  
    942942        if (prt_level >= 9) &
    943943             PRINT *, 'cva_driver -> cv3_epmax_cape'
    944     call cv3_epmax_fn_cape(nloc,ncum,nd &
     944    CALL cv3_epmax_fn_cape(nloc,ncum,nd &
    945945                , ep,hp,icb,inb,clw,nk,t,h,hnk,lv,lf,frac_s &
    946946                , pbase, p, ph, tv, buoy, sig, w0,iflag &

  • LMDZ6/branches/Amaury_dev/libf/phylmd/cvltr.F90

    r5099 r5101  
    1212  USE IOIPSL
    1313  USE dimphy
    14   USE infotrac_phy, ONLY : nbtr
     14  USE infotrac_phy, ONLY: nbtr
    1515  IMPLICIT NONE
    1616!=====================================================================
    … …  
    125125
    126126!$OMP MASTER
    127   call getin('ccntrAA_coef',ccntrAA_coef)
    128   call getin('ccntrENV_coef',ccntrENV_coef)
    129   call getin('coefcoli',coefcoli)
     127  CALL getin('ccntrAA_coef',ccntrAA_coef)
     128  CALL getin('ccntrENV_coef',ccntrENV_coef)
     129  CALL getin('coefcoli',coefcoli)
    130130!$OMP END MASTER
    131131!$OMP BARRIER

  • LMDZ6/branches/Amaury_dev/libf/phylmd/cvltr_noscav.F90

    r5099 r5101  
    44SUBROUTINE cvltr_noscav(it,pdtime,da, phi, mp,wght_cvfd,paprs,pplay,x,upd,dnd,dx)
    55  USE dimphy
    6   USE infotrac_phy, ONLY : nbtr
     6  USE infotrac_phy, ONLY: nbtr
    77  IMPLICIT NONE
    88!=====================================================================

  • LMDZ6/branches/Amaury_dev/libf/phylmd/cvltr_scav.F90

    r5099 r5101  
    1313  USE IOIPSL
    1414  USE dimphy
    15   USE infotrac_phy, ONLY : nbtr
     15  USE infotrac_phy, ONLY: nbtr
    1616  IMPLICIT NONE
    1717  !=====================================================================

  • LMDZ6/branches/Amaury_dev/libf/phylmd/cvltr_spl.F90

    r5099 r5101  
    1313  USE IOIPSL
    1414  USE dimphy
    15   USE infotrac_phy, ONLY : nbtr
     15  USE infotrac_phy, ONLY: nbtr
    1616  IMPLICIT NONE
    1717!=====================================================================
    … …  
    152152
    153153!!$OMP MASTER
    154 !  call getin('ccntrAA_coef',ccntrAA_coef)
    155 !  call getin('ccntrENV_coef',ccntrENV_coef)
    156 !  call getin('coefcoli',coefcoli)
     154!  CALL getin('ccntrAA_coef',ccntrAA_coef)
     155!  CALL getin('ccntrENV_coef',ccntrENV_coef)
     156!  CALL getin('coefcoli',coefcoli)
    157157!!$OMP END MASTER
    158158!!$OMP BARRIER

  • LMDZ6/branches/Amaury_dev/libf/phylmd/cvltrorig.F90

    r5099 r5101  
    44SUBROUTINE cvltrorig(it,pdtime,da, phi, mp,paprs,pplay,x,upd,dnd,dx)
    55  USE dimphy
    6   USE infotrac_phy, ONLY : nbtr
     6  USE infotrac_phy, ONLY: nbtr
    77  IMPLICIT NONE
    88!=====================================================================

  • LMDZ6/branches/Amaury_dev/libf/phylmd/dyn1d/1DUTILS.h

    r5099 r5101  
    10071007 
    10081008      write(*,*) 'in abort_gcm'
    1009       call histclo
    1010 !     call histclo(2)
    1011 !     call histclo(3)
    1012 !     call histclo(4)
    1013 !     call histclo(5)
     1009      CALL histclo
     1010!     CALL histclo(2)
     1011!     CALL histclo(3)
     1012!     CALL histclo(4)
     1013!     CALL histclo(5)
    10141014      write(*,*) 'out of histclo'
    10151015      write(*,*) 'Stopping in ', modname
    10161016      write(*,*) 'Reason = ',message
    1017       call getin_dump
     1017      CALL getin_dump
    10181018
    10191019      if (ierr .eq. 0) then
    … …  
    12711271!! This subroutine specifies the surface temperature to be used in 1D simulations
    12721272
    1273 !      USE dimphy, ONLY : klon
     1273!      USE dimphy, ONLY: klon
    12741274
    12751275!      INTEGER, INTENT(IN)                  :: knon     ! nomber of points on compressed grid
    … …  
    14851485!      endif
    14861486
    1487 !       call writefield_phy('d_t_va',d_t_va,llm)
     1487!       CALL writefield_phy('d_t_va',d_t_va,llm)
    14881488
    14891489          return

  • LMDZ6/branches/Amaury_dev/libf/phylmd/dyn1d/1D_read_forc_cases.h

    r5099 r5101  
    1414      if (forcing_SCM) then
    1515
    16          write(*,*),'avant call read_SCM'
    17          call read_SCM_cas
     16         write(*,*),'avant CALL read_SCM'
     17         CALL read_SCM_cas
    1818         write(*,*) 'Forcing read'
    1919         print*,'PS ps_cas',ps_cas

  • LMDZ6/branches/Amaury_dev/libf/phylmd/dyn1d/1Dconv.h

    r5099 r5101  
    187187          open(99,FILE=file_fordat,FORM='UNFORMATTED',                        &
    188188     &             ACCESS='DIRECT',RECL=8)
    189           call rdgrads(99,icompt,nblvlm,z,ht_mes,hq_mes,hw_mes                &
     189          CALL rdgrads(99,icompt,nblvlm,z,ht_mes,hq_mes,hw_mes                &
    190190     &                  ,hu_mes,hv_mes,hthturb_mes,hqturb_mes                 &
    191191     &                  ,ts_fcg,ts_subr,imp_fcg,Turb_fcg)
    … …  
    333333      aaa=spaces(aaa,1)
    334334         print*,'aaa',aaa
    335       call getsch(aaa,' ',' ',5,atemps,nch)
     335      CALL getsch(aaa,' ',' ',5,atemps,nch)
    336336         print*,'atemps est',atemps
    337337        atemps=atemps(1:nch-2)
    … …  
    340340        dt=imn*60
    341341         print*,'le pas de temps dt',dt
    342       call getsch(aaa,' ',' ',2,apasmax,nch)
     342      CALL getsch(aaa,' ',' ',2,apasmax,nch)
    343343        apasmax=apasmax(1:nch)
    344344        read(apasmax,*) ipa
    … …  
    365365          IF (Turb_fcg) icomp1 = icomp1 + nblvlm*2
    366366          icompt = icomp1*(in-1)
    367           call rdgrads(99,icompt,nblvlm,z,ht_mes,hq_mes,hw_mes              &
     367          CALL rdgrads(99,icompt,nblvlm,z,ht_mes,hq_mes,hw_mes              &
    368368     &                   ,hu_mes,hv_mes,hthturb_mes,hqturb_mes              &
    369369     &                   ,ts_fcg,ts_subr,imp_fcg,Turb_fcg)
    … …  
    518518!---------------------------------------------------------------------
    519519! pression au milieu des couches du gcm dans la physiq
    520 ! (SB: remplace le call conv_lipress_gcm(playgcm) )
     520! (SB: remplace le CALL conv_lipress_gcm(playgcm) )
    521521!---------------------------------------------------------------------
    522522
    … …  
    532532!----------------------------------------------------------------------
    533533
    534       call mesolupbis(file_forctl)
     534      CALL mesolupbis(file_forctl)
    535535
    536536      print*,'la valeur de nblvlm est:',nblvlm
    … …  
    542542!----------------------------------------------------------------------
    543543
    544       call corresbis(psolgcm)
     544      CALL corresbis(psolgcm)
    545545
    546546!---------------------------------------------------------
    … …  
    603603 2000  format (a80)
    604604       aaa=spaces(aaa,1)
    605        call getsch(aaa,' ',' ',2,anblvl,nch)
     605       CALL getsch(aaa,' ',' ',2,anblvl,nch)
    606606         read(anblvl,*) nblvlm
    607607

  • LMDZ6/branches/Amaury_dev/libf/phylmd/dyn1d/old_lmdz1d.F90

    r5099 r5101  
    55
    66   USE ioipsl, only: ju2ymds, ymds2ju, ioconf_calendar,getin
    7    USE phys_state_var_mod, ONLY : phys_state_var_init, phys_state_var_end, &
     7   USE phys_state_var_mod, ONLY: phys_state_var_init, phys_state_var_end, &
    88       clwcon, detr_therm, &
    99       qsol, fevap, z0m, z0h, agesno, &
    … …  
    2323 
    2424   USE dimphy
    25    USE surface_data, only : type_ocean,ok_veget
    26    USE pbl_surface_mod, only : ftsoil, pbl_surface_init, &
     25   USE surface_data, ONLY: type_ocean,ok_veget
     26   USE pbl_surface_mod, ONLY: ftsoil, pbl_surface_init, &
    2727                                 pbl_surface_final
    28    USE fonte_neige_mod, only : fonte_neige_init, fonte_neige_final
     28   USE fonte_neige_mod, ONLY: fonte_neige_init, fonte_neige_final
    2929
    3030   USE infotrac ! new
    … …  
    4343   USE temps_mod, ONLY: annee_ref, calend, day_end, day_ini, day_ref, &
    4444                        itau_dyn, itau_phy, start_time, year_len
    45    USE phys_cal_mod, ONLY : year_len_phys_cal_mod => year_len
     45   USE phys_cal_mod, ONLY: year_len_phys_cal_mod => year_len
    4646   USE mod_1D_cases_read, ONLY: interp_case_time ! used in included old_1D_read_forc_cases.h
    4747

  • LMDZ6/branches/Amaury_dev/libf/phylmd/dyn1d/replay1d.F90

    r5099 r5101  
    44USE inigeomphy_mod, ONLY: inigeomphy
    55USE comvert_mod, ONLY: presnivs
    6 USE comvert_mod, only :  preff, pa
     6USE comvert_mod, ONLY:  preff, pa
    77USE ioipsl, only: getin
    88

  • LMDZ6/branches/Amaury_dev/libf/phylmd/dyn1d/scm.F90

    r5099 r5101  
    22
    33   USE ioipsl, only: ju2ymds, ymds2ju, ioconf_calendar,getin
    4    USE phys_state_var_mod, ONLY : phys_state_var_init, phys_state_var_end, &
     4   USE phys_state_var_mod, ONLY: phys_state_var_init, phys_state_var_end, &
    55       clwcon, detr_therm, &
    66       qsol, fevap, z0m, z0h, agesno, &
    … …  
    2020 
    2121   USE dimphy
    22    USE surface_data, only : type_ocean,ok_veget
    23    USE pbl_surface_mod, only : ftsoil, pbl_surface_init, &
     22   USE surface_data, ONLY: type_ocean,ok_veget
     23   USE pbl_surface_mod, ONLY: ftsoil, pbl_surface_init, &
    2424                                 pbl_surface_final
    25    USE fonte_neige_mod, only : fonte_neige_init, fonte_neige_final
     25   USE fonte_neige_mod, ONLY: fonte_neige_init, fonte_neige_final
    2626
    2727   USE infotrac ! new
    … …  
    4040   USE temps_mod, ONLY: annee_ref, calend, day_end, day_ini, day_ref, &
    4141                        itau_dyn, itau_phy, start_time, year_len
    42    USE phys_cal_mod, ONLY : year_len_phys_cal_mod => year_len
     42   USE phys_cal_mod, ONLY: year_len_phys_cal_mod => year_len
    4343
    4444      implicit none

  • LMDZ6/branches/Amaury_dev/libf/phylmd/ecumev6_flux.F90

    r5099 r5101  
    8686USE dimphy
    8787USE indice_sol_mod
    88 USE MODD_CSTS,             ONLY : XPI, XDAY, XKARMAN, XG, XP00, XSTEFAN, XRD, XRV,   &
     88USE MODD_CSTS,             ONLY: XPI, XDAY, XKARMAN, XG, XP00, XSTEFAN, XRD, XRV,   &
    8989                                  XCPD, XCPV, XCL, XTT, XLVTT
    9090
    9191
    92 !USE MODD_SURF_PAR,         ONLY : XUNDEF
    93 !USE MODD_SURF_ATM,         ONLY : XVCHRNK, XVZ0CM
    94 !USE MODD_REPROD_OPER,      ONLY : CCHARNOCK
     92!USE MODD_SURF_PAR,         ONLY: XUNDEF
     93!USE MODD_SURF_ATM,         ONLY: XVCHRNK, XVZ0CM
     94!USE MODD_REPROD_OPER,      ONLY: CCHARNOCK
    9595
    9696!USE MODE_THERMOS
    … …  
    9898!USE MODI_SURFACE_RI
    9999
    100 !USE YOMHOOK,   ONLY : LHOOK,   DR_HOOK
    101 !USE PARKIND1,  ONLY : JPRB
     100!USE YOMHOOK,   ONLY: LHOOK,   DR_HOOK
     101!USE PARKIND1,  ONLY: JPRB
    102102
    103103!USE MODI_ABOR1_SFX

  • LMDZ6/branches/Amaury_dev/libf/phylmd/ener_conserv.F90

    r5099 r5101  
    2020
    2121! From module
    22 USE phys_local_var_mod, ONLY : d_u_vdf,d_v_vdf,d_t_vdf,d_u_ajs,d_v_ajs,d_t_ajs, &
     22USE phys_local_var_mod, ONLY: d_u_vdf,d_v_vdf,d_t_vdf,d_u_ajs,d_v_ajs,d_t_ajs, &
    2323                               d_u_con,d_v_con,d_t_con,d_t_diss
    24 USE phys_local_var_mod, ONLY : d_t_eva,d_t_lsc,d_q_eva,d_q_lsc
    25 USE phys_local_var_mod, ONLY : d_u_oro,d_v_oro,d_u_lif,d_v_lif
    26 USE phys_local_var_mod, ONLY : du_gwd_hines,dv_gwd_hines,dv_gwd_front,dv_gwd_rando
    27 USE phys_state_var_mod, ONLY : du_gwd_front,du_gwd_rando
    28 USE phys_output_var_mod, ONLY : bils_ec,bils_ech,bils_tke,bils_kinetic,bils_enthalp,bils_latent,bils_diss
    29 USE add_phys_tend_mod, ONLY : fl_cor_ebil
     24USE phys_local_var_mod, ONLY: d_t_eva,d_t_lsc,d_q_eva,d_q_lsc
     25USE phys_local_var_mod, ONLY: d_u_oro,d_v_oro,d_u_lif,d_v_lif
     26USE phys_local_var_mod, ONLY: du_gwd_hines,dv_gwd_hines,dv_gwd_front,dv_gwd_rando
     27USE phys_state_var_mod, ONLY: du_gwd_front,du_gwd_rando
     28USE phys_output_var_mod, ONLY: bils_ec,bils_ech,bils_tke,bils_kinetic,bils_enthalp,bils_latent,bils_diss
     29USE add_phys_tend_mod, ONLY: fl_cor_ebil
    3030USE infotrac_phy, ONLY: nqtot
    3131

  • LMDZ6/branches/Amaury_dev/libf/phylmd/flott_gwd_rando_m.F90

    r5099 r5101  
    2121      use dimphy, only: klon, klev
    2222      use assert_m, only: assert
    23       USE ioipsl_getin_p_mod, ONLY : getin_p
    24       USE vertical_layers_mod, ONLY : presnivs
     23      USE ioipsl_getin_p_mod, ONLY: getin_p
     24      USE vertical_layers_mod, ONLY: presnivs
    2525      CHARACTER (LEN=20) :: modname='flott_gwd_rando'
    2626      CHARACTER (LEN=80) :: abort_message

  • LMDZ6/branches/Amaury_dev/libf/phylmd/fonte_neige_mod.F90

    r5099 r5101  
    88
    99!****************************************************************************************
    10   USE dimphy, ONLY : klon
     10  USE dimphy, ONLY: klon
    1111  USE indice_sol_mod
    1212

  • LMDZ6/branches/Amaury_dev/libf/phylmd/freinage.F90

    r5099 r5101  
    88    use dimphy, only: klon, klev
    99!    USE control, ONLY: nvm
    10 !    USE indice_sol_mod, only : nvm_orch
     10!    USE indice_sol_mod, ONLY: nvm_orch
    1111
    1212    IMPLICIT NONE

  • LMDZ6/branches/Amaury_dev/libf/phylmd/grid_index.F90

    r5074 r5101  
    55! Please do not put this function in a m*odule not to complexify the replay script
    66!--------------------------------------------------------------------------------
    7 USE dimphy, only : klon
     7USE dimphy, ONLY: klon
    88USE geometry_mod, ONLY: latitude_deg, longitude_deg
    99implicit none

  • LMDZ6/branches/Amaury_dev/libf/phylmd/grid_noro_m.F90

    r5100 r5101  
    436436!===============================================================================
    437437  USE netcdf, ONLY: nf90_open,  nf90_inq_dimid, nf90_inquire_dimension,        &
    438         nf90_noerr, nf90_close, NF90_INQ_VARID, nf90_get_var, NF90_STRERROR,   &
     438        nf90_noerr, nf90_close, nf90_inq_varid, nf90_get_var, nf90_strerror,   &
    439439        nf90_nowrite
    440440  IMPLICIT NONE
    … …  
    498498  CHARACTER(LEN=*), INTENT(IN)    :: var
    499499  REAL,             INTENT(INOUT) :: fld(:,:)
    500   CALL ncerr(NF90_INQ_VARID(fid,var,vid),var)
     500  CALL ncerr(nf90_inq_varid(fid,var,vid),var)
    501501  CALL ncerr(nf90_get_var(fid,vid,fld(1:imar,:)),var)
    502502  fld(imar+1,:)=fld(1,:)
    … …  
    511511  CALL ncerr(nf90_inq_dimid(fid,dimd,did))
    512512  CALL ncerr(nf90_inquire_dimension(fid,did,len=n)); ALLOCATE(tmp(n))
    513   CALL ncerr(NF90_INQ_VARID(fid,dimd,did))
     513  CALL ncerr(nf90_inq_varid(fid,dimd,did))
    514514  CALL ncerr(nf90_get_var(fid,did,tmp))
    515515  IF(MAXVAL(tmp)>xpi) tmp=tmp*d2r
    … …  
    529529    IF(PRESENT(var)) mess=TRIM(mess)//' and variable "'//TRIM(var)//'"'
    530530    WRITE(lunout,*)TRIM(mess)//'.'
    531     CALL abort_physic(modname,NF90_STRERROR(ncres),1)
     531    CALL abort_physic(modname,nf90_strerror(ncres),1)
    532532  END IF
    533533END SUBROUTINE ncerr

  • LMDZ6/branches/Amaury_dev/libf/phylmd/ice_sursat_mod.F90

    r5099 r5101  
    5959
    6060  USE print_control_mod, ONLY: lunout
    61   USE ioipsl_getin_p_mod, ONLY : getin_p
     61  USE ioipsl_getin_p_mod, ONLY: getin_p
    6262
    6363  IMPLICIT NONE
    … …  
    9191  USE mod_grid_phy_lmdz,  ONLY: klon_glo
    9292  USE geometry_mod, ONLY: cell_area
    93   USE phys_cal_mod, ONLY : mth_cur
     93  USE phys_cal_mod, ONLY: mth_cur
    9494  USE mod_phys_lmdz_mpi_data, ONLY: is_mpi_root
    9595  USE mod_phys_lmdz_omp_data, ONLY: is_omp_root

  • LMDZ6/branches/Amaury_dev/libf/phylmd/infotrac_phy.F90

    r5099 r5101  
    33MODULE infotrac_phy
    44
    5   USE       strings_mod, ONLY : msg, fmsg, maxlen, cat, dispTable, int2str, bool2str, strStack, strParse, strIdx
    6   USE readTracFiles_mod, ONLY : trac_type, readTracersFiles, tracers, setGeneration, itZonIso, nzone, tran0, isoZone, &
     5  USE       strings_mod, ONLY: msg, fmsg, maxlen, cat, dispTable, int2str, bool2str, strStack, strParse, strIdx
     6  USE readTracFiles_mod, ONLY: trac_type, readTracersFiles, tracers, setGeneration, itZonIso, nzone, tran0, isoZone, &
    77          delPhase, niso, getKey, isot_type, processIsotopes, isotope, maxTableWidth, iqIsoPha, nphas, ixIso, isoPhas, &
    88          addPhase, iH2O, addKey, isoSelect, testTracersFiles, isoKeys, indexUpdate, iqWIsoPha, nbIso, ntiso, isoName, isoCheck
    … …  
    128128
    129129  SUBROUTINE init_infotrac_phy
    130     USE ioipsl_getin_p_mod, ONLY : getin_p
     130    USE ioipsl_getin_p_mod, ONLY: getin_p
    131131#ifdef REPROBUS
    132132   USE CHEM_REP, ONLY: Init_chem_rep_trac
    133133#endif
    134     USE lmdz_cppkeys_wrapper, ONLY : CPPKEY_INCA, CPPKEY_STRATAER
     134    USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_INCA, CPPKEY_STRATAER
    135135    IMPLICIT NONE
    136136    !==============================================================================================================================

  • LMDZ6/branches/Amaury_dev/libf/phylmd/ini_csts.F90

    r5099 r5101  
    5757
    5858
    59 !USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
    60 !USE PARKIND1  ,ONLY : JPRB
     59!USE YOMHOOK   ,ONLY: LHOOK,   DR_HOOK
     60!USE PARKIND1  ,ONLY: JPRB
    6161
    6262!USE MODI_INI_CTURBS

  • LMDZ6/branches/Amaury_dev/libf/phylmd/inifis_mod.F90

    r3435 r5101  
    66  SUBROUTINE inifis(punjours, prad, pg, pr, pcpp)
    77  ! Initialize some physical constants and settings
    8   USE init_print_control_mod, ONLY : init_print_control
     8  USE init_print_control_mod, ONLY: init_print_control
    99  USE print_control_mod, ONLY: lunout
    1010  IMPLICIT NONE

  • LMDZ6/branches/Amaury_dev/libf/phylmd/init_be.F90

    r5099 r5101  
    66  USE dimphy
    77  USE indice_sol_mod
    8   USE geometry_mod, ONLY : longitude, latitude
     8  USE geometry_mod, ONLY: longitude, latitude
    99   
    1010  IMPLICIT NONE

  • LMDZ6/branches/Amaury_dev/libf/phylmd/initrrnpb.F90

    r5099 r5101  
    44SUBROUTINE  initrrnpb(ftsol,pctsrf,masktr,fshtr,hsoltr,tautr,vdeptr,scavtr)
    55  USE dimphy
    6   USE infotrac_phy, ONLY : nbtr
    7   USE traclmdz_mod, ONLY : id_rn, id_pb
     6  USE infotrac_phy, ONLY: nbtr
     7  USE traclmdz_mod, ONLY: id_rn, id_pb
    88  USE indice_sol_mod
    99  IMPLICIT NONE

  • LMDZ6/branches/Amaury_dev/libf/phylmd/inlandsis/VAR0SV.F90

    r3792 r5101  
    11MODULE VAR0SV
    22
    3 USE VAR_SV, only : nsol, nsno
    4 USE VARdSV, only : nsot
     3USE VAR_SV, ONLY: nsol, nsno
     4USE VARdSV, ONLY: nsot
    55
    66IMPLICIT NONE

  • LMDZ6/branches/Amaury_dev/libf/phylmd/inlandsis/VARtSV.F90

    r3900 r5101  
    11MODULE VARtSV
    22
    3 USE VAR_SV, only : nsol, nsno, klonv
     3USE VAR_SV, ONLY: nsol, nsno, klonv
    44
    55IMPLICIT NONE

  • LMDZ6/branches/Amaury_dev/libf/phylmd/inlandsis/VARxSV.F90

    r5099 r5101  
    11MODULE VARxSV                     
    22
    3 USE VAR_SV, only : klonv, nsol, nsno, nb_wri
     3USE VAR_SV, ONLY: klonv, nsol, nsno, nb_wri
    44                                                         
    55IMPLICIT NONE                                                                               

  • LMDZ6/branches/Amaury_dev/libf/phylmd/inlandsis/VARySV.F90

    r5099 r5101  
    11MODULE VARySV
    22
    3 USE VAR_SV, only : klonv, nsol, nsno
     3USE VAR_SV, ONLY: klonv, nsol, nsno
    44
    55

  • LMDZ6/branches/Amaury_dev/libf/phylmd/inlandsis/surf_inlandsis_mod.F90

    r5099 r5101  
    5050        USE VARtSV
    5151        USE VARphy
    52         USE surface_data, only : iflag_tsurf_inlandsis, SnoMod, BloMod, ok_outfor
     52        USE surface_data, ONLY: iflag_tsurf_inlandsis, SnoMod, BloMod, ok_outfor
    5353
    5454        IMPLICIT NONE
    … …  
    751751        ! of SISVAT, therefore it's needed here.
    752752
    753         USE mod_phys_lmdz_mpi_data, ONLY : is_mpi_root
     753        USE mod_phys_lmdz_mpi_data, ONLY: is_mpi_root
    754754        USE mod_phys_lmdz_para
    755755        USE VAR_SV

  • LMDZ6/branches/Amaury_dev/libf/phylmd/iophy.F90

    r5099 r5101  
    166166                                  mpi_size, mpi_rank
    167167    USE ioipsl, ONLY: flio_dom_set
    168     USE mod_grid_phy_lmdz, ONLY : nbp_lon, nbp_lat
     168    USE mod_grid_phy_lmdz, ONLY: nbp_lon, nbp_lat
    169169
    170170    IMPLICIT NONE
    … …  
    211211  USE mod_phys_lmdz_para, ONLY: is_sequential, is_using_mpi, is_mpi_root, &
    212212                                jj_begin, jj_end, jj_nb
    213   USE mod_grid_phy_lmdz, ONLY : nbp_lon, nbp_lat
     213  USE mod_grid_phy_lmdz, ONLY: nbp_lon, nbp_lat
    214214  USE ioipsl, ONLY: histbeg
    215215  USE wxios, ONLY: wxios_add_file, using_xios
    … …  
    251251
    252252  USE mod_phys_lmdz_para, ONLY: jj_begin, jj_end, jj_nb, is_sequential
    253   USE mod_grid_phy_lmdz, ONLY : nbp_lon, nbp_lat
     253  USE mod_grid_phy_lmdz, ONLY: nbp_lon, nbp_lat
    254254  USE ioipsl, ONLY: histbeg
    255255
    … …  
    461461                                   nid_files, nhorim, swaero_diag, dryaod_diag, nfiles, &
    462462                                   ok_4xCO2atm
    463     USE mod_grid_phy_lmdz, ONLY : nbp_lon, nbp_lat
    464     USE aero_mod, ONLY : naero_tot, name_aero_tau
     463    USE mod_grid_phy_lmdz, ONLY: nbp_lon, nbp_lat
     464    USE aero_mod, ONLY: naero_tot, name_aero_tau
    465465    USE print_control_mod, ONLY: prt_level,lunout
    466466
    … …  
    538538                                   nhorim, zdtime_moy, levmin, levmax, &
    539539                                   nvertm, nfiles
    540     USE mod_grid_phy_lmdz, ONLY : nbp_lon, nbp_lat
     540    USE mod_grid_phy_lmdz, ONLY: nbp_lon, nbp_lat
    541541    USE print_control_mod, ONLY: prt_level,lunout
    542542    IMPLICIT NONE
    … …  
    590590                                   ok_4xCO2atm
    591591    USE print_control_mod, ONLY: prt_level,lunout
    592     USE mod_grid_phy_lmdz, ONLY : nbp_lon, nbp_lat
    593     USE aero_mod, ONLY : naero_tot, name_aero_tau
     592    USE mod_grid_phy_lmdz, ONLY: nbp_lon, nbp_lat
     593    USE aero_mod, ONLY: naero_tot, name_aero_tau
    594594    USE wxios, ONLY: wxios_add_field_to_file, using_xios
    595595    USE print_control_mod, ONLY: prt_level,lunout
    … …  
    706706                                   levmax, nvertm
    707707    USE print_control_mod, ONLY: prt_level,lunout
    708     USE mod_grid_phy_lmdz, ONLY : nbp_lon, nbp_lat
     708    USE mod_grid_phy_lmdz, ONLY: nbp_lon, nbp_lat
    709709    USE wxios, ONLY: wxios_add_field_to_file, using_xios
    710710    USE print_control_mod, ONLY: prt_level,lunout
    … …  
    811811    USE ioipsl, ONLY: histwrite
    812812    USE print_control_mod, ONLY: prt_level,lunout
    813     USE mod_grid_phy_lmdz, ONLY : nbp_lon, nbp_lat
     813    USE mod_grid_phy_lmdz, ONLY: nbp_lon, nbp_lat
    814814
    815815    IMPLICIT NONE
    … …  
    876876                                  is_sequential, klon_mpi_begin, klon_mpi_end, &
    877877                                  jj_nb, klon_mpi, is_master
    878     USE mod_grid_phy_lmdz, ONLY : nbp_lon, nbp_lat
     878    USE mod_grid_phy_lmdz, ONLY: nbp_lon, nbp_lat
    879879    USE ioipsl, ONLY: histwrite
    880880    USE print_control_mod, ONLY: prt_level,lunout
    … …  
    954954                                 nid_files, swaerofree_diag, swaero_diag, dryaod_diag, ok_4xCO2atm
    955955  USE print_control_mod, ONLY: prt_level,lunout
    956   USE mod_grid_phy_lmdz, ONLY : nbp_lon, nbp_lat, grid_type, unstructured, regular_lonlat
     956  USE mod_grid_phy_lmdz, ONLY: nbp_lon, nbp_lat, grid_type, unstructured, regular_lonlat
    957957  USE lmdz_xios, ONLY: xios_send_field, xios_field_is_active, using_xios
    958958  USE print_control_mod, ONLY: lunout, prt_level
    … …  
    11661166                                 nfiles, vars_defined, clef_stations, &
    11671167                                 nid_files, swaerofree_diag
    1168   USE mod_grid_phy_lmdz, ONLY : nbp_lon, nbp_lat, grid_type, regular_lonlat, unstructured
     1168  USE mod_grid_phy_lmdz, ONLY: nbp_lon, nbp_lat, grid_type, regular_lonlat, unstructured
    11691169  USE lmdz_xios, ONLY: xios_send_field, xios_field_is_active, using_xios
    11701170  USE print_control_mod, ONLY: prt_level,lunout
    … …  
    13621362                                is_sequential, klon_mpi_begin, klon_mpi_end, &
    13631363                                jj_nb, klon_mpi, is_master
    1364   USE mod_grid_phy_lmdz, ONLY : nbp_lon, nbp_lat, grid_type, unstructured
     1364  USE mod_grid_phy_lmdz, ONLY: nbp_lon, nbp_lat, grid_type, unstructured
    13651365  USE lmdz_xios, ONLY: xios_send_field
    13661366  USE print_control_mod, ONLY: prt_level,lunout
    … …  
    14461446                                jj_nb, klon_mpi, is_master
    14471447  USE lmdz_xios, ONLY: xios_send_field
    1448   USE mod_grid_phy_lmdz, ONLY : nbp_lon, nbp_lat, grid_type, unstructured
     1448  USE mod_grid_phy_lmdz, ONLY: nbp_lon, nbp_lat, grid_type, unstructured
    14491449  USE print_control_mod, ONLY: prt_level,lunout
    14501450

  • LMDZ6/branches/Amaury_dev/libf/phylmd/iophys.F90

    r5099 r5101  
    7777
    7878    USE mod_phys_lmdz_para, ONLY: klon_omp
    79     USE dimphy, ONLY : klon
     79    USE dimphy, ONLY: klon
    8080    USE mod_grid_phy_lmdz, ONLY: klon_glo
    8181    IMPLICIT NONE
    … …  
    115115      USE dimphy, ONLY: klev
    116116      USE mod_grid_phy_lmdz, ONLY: klon_glo
    117       USE time_phylmdz_mod, ONLY : annee_ref, day_ref, day_ini
    118       USE phys_cal_mod, ONLY : calend
     117      USE time_phylmdz_mod, ONLY: annee_ref, day_ref, day_ini
     118      USE phys_cal_mod, ONLY: calend
    119119
    120120      IMPLICIT NONE

  • LMDZ6/branches/Amaury_dev/libf/phylmd/iostart.F90

    r5100 r5101  
    7070   
    7171    IF (is_mpi_root .AND. is_omp_root) THEN
    72       ierr=NF90_INQ_VARID(nid_start,Field_name,varid)
     72      ierr=nf90_inq_varid(nid_start,Field_name,varid)
    7373      IF (ierr==nf90_noerr) THEN
    7474        Inquire_field=.TRUE.
    … …  
    146146    IF (is_master) THEN
    147147 
    148       ierr=NF90_INQ_VARID(nid_start,Field_name,varid)
     148      ierr=nf90_inq_varid(nid_start,Field_name,varid)
    149149     
    150150      IF (ierr==nf90_noerr) THEN
    … …  
    173173      IF (.NOT. tmp_found) THEN
    174174        PRINT*, 'phyetat0: Le champ <'//field_name//'> est absent'
    175         call abort_physic("", "", 1)
     175        CALL abort_physic("", "", 1)
    176176      ENDIF
    177177    ENDIF
    … …  
    193193              IF (ierr/=nf90_noerr) THEN
    194194                 PRINT*, 'phyetat0: Lecture echouee aussi en 2D pour <'//field_name//'>'
    195                  call abort_physic("", "", 1)
     195                 CALL abort_physic("", "", 1)
    196196              ELSE
    197197                 PRINT*, 'phyetat0: La variable <'//field_name//'> lu sur surface seulement'!, selon ancien format, le reste mis a zero'
    198198              END IF
    199199           ELSE
    200               call abort_physic("", "", 1)
     200              CALL abort_physic("", "", 1)
    201201           ENDIF
    202202         ENDIF
    … …  
    267267    IF (is_mpi_root .AND. is_omp_root) THEN
    268268 
    269       ierr=NF90_INQ_VARID(nid_start,var_name,varid)
     269      ierr=nf90_inq_varid(nid_start,var_name,varid)
    270270     
    271271      IF (ierr==nf90_noerr) THEN
    … …  
    273273        IF (ierr/=nf90_noerr) THEN
    274274          PRINT*, 'phyetat0: Lecture echouee pour <'//var_name//'>'
    275           call abort_physic("", "", 1)
     275          CALL abort_physic("", "", 1)
    276276        ENDIF
    277277        tmp_found=.TRUE.
    … …  
    293293      IF (.NOT. tmp_found) THEN
    294294        PRINT*, 'phyetat0: La variable champ <'//var_name//'> est absente'
    295         call abort_physic("", "", 1)
     295        CALL abort_physic("", "", 1)
    296296      ENDIF
    297297    ENDIF
    … …  
    425425      ENDIF
    426426         
    427 !      ierr = NF90_REDEF (nid_restart)
     427!      ierr = nf90_redef (nid_restart)
    428428      ierr = nf90_def_var (nid_restart, field_name, nf90_format,(/ idim /),nvarid)
    429429      IF (LEN_TRIM(title) > 0) ierr = nf90_put_att (nid_restart,nvarid,"title", title)
    … …  
    453453       ENDDO
    454454
    455        ierr = NF90_INQ_VARID(nid_restart, field_name, nvarid)
     455       ierr = nf90_inq_varid(nid_restart, field_name, nvarid)
    456456       ierr = nf90_put_var(nid_restart,nvarid,RESHAPE(field_glo,(/klon_glo*field_size/)))
    457457      ENDIF
    … …  
    528528      IF (var_size/=length) THEN
    529529        PRINT *, "erreur phyredem : probleme de dimension"
    530         call abort_physic("", "", 1)
     530        CALL abort_physic("", "", 1)
    531531      ENDIF
    532532
    … …  
    534534      IF (pass==1) THEN
    535535       
    536 !      ierr = NF90_REDEF (nid_restart)
     536!      ierr = nf90_redef (nid_restart)
    537537
    538538        ierr = nf90_def_var (nid_restart, var_name, nf90_format,(/ idim1 /),nvarid)
    … …  
    542542    ! second pass : write     
    543543      ELSE IF (pass==2) THEN
    544         ierr = NF90_INQ_VARID(nid_restart, var_name, nvarid)
     544        ierr = nf90_inq_varid(nid_restart, var_name, nvarid)
    545545        ierr = nf90_put_var(nid_restart,nvarid,var)
    546546      ENDIF

  • LMDZ6/branches/Amaury_dev/libf/phylmd/iotd_fin.F90

    r5099 r5101  
    11SUBROUTINE iotd_fin
    2   USE netcdf, ONLY : nf90_close
     2  USE netcdf, ONLY: nf90_close
    33
    44  IMPLICIT NONE

  • LMDZ6/branches/Amaury_dev/libf/phylmd/limit_read_mod.F90

    r5100 r5101  
    131131! This subroutine returns the sea surface temperature already read from limit.nc.
    132132
    133     USE dimphy, ONLY : klon
     133    USE dimphy, ONLY: klon
    134134
    135135    INTEGER, INTENT(IN)                  :: knon     ! nomber of points on compressed grid
    … …  
    164164    USE mod_grid_phy_lmdz
    165165    USE mod_phys_lmdz_para
    166     USE surface_data, ONLY : type_ocean, ok_veget
     166    USE surface_data, ONLY: type_ocean, ok_veget
    167167    USE netcdf, ONLY:nf90_get_var,nf90_inq_varid,nf90_close,nf90_inquire_dimension,&
    168168            nf90_inquire,nf90_get_att,nf90_inq_dimid,nf90_nowrite,nf90_noerr,nf90_open
    169169    USE indice_sol_mod
    170     USE phys_cal_mod, ONLY : calend, year_len
     170    USE phys_cal_mod, ONLY: calend, year_len
    171171    USE print_control_mod, ONLY: lunout, prt_level
    172172    USE lmdz_xios, ONLY: xios_recv_field, using_xios
    … …  
    239239
    240240          !--- WARNING IF CALENDAR IS KNOWN AND DOES NOT MATCH THE ONE OF LMDZ
    241           ierr=NF90_INQ_VARID(nid, 'TEMPS', nvarid)
     241          ierr=nf90_inq_varid(nid, 'TEMPS', nvarid)
    242242          ierr=nf90_get_att(nid, nvarid, 'calendar', calendar)
    243243          IF(ierr==nf90_noerr.AND.calendar/=calend.AND.prt_level>=1) THEN
    … …  
    251251            ierr=nf90_inq_dimid(nid,"time_year",ndimid)
    252252          ELSE
    253             ierr=NF90_INQUIRE(nid, UnlimitedDimID=ndimid)
     253            ierr=nf90_inquire(nid, UnlimitedDimID=ndimid)
    254254          ENDIF
    255255          ierr=nf90_inquire_dimension(nid, ndimid, len=nn)
    … …  
    351351
    352352! Ocean fraction
    353              ierr = NF90_INQ_VARID(nid, 'FOCE', nvarid)
     353             ierr = nf90_inq_varid(nid, 'FOCE', nvarid)
    354354             IF (ierr /= nf90_noerr) CALL abort_physic(modname, 'Le champ <FOCE> est absent',1)
    355355             
    … …  
    358358
    359359! Sea-ice fraction
    360              ierr = NF90_INQ_VARID(nid, 'FSIC', nvarid)
     360             ierr = nf90_inq_varid(nid, 'FSIC', nvarid)
    361361             IF (ierr /= nf90_noerr) CALL abort_physic(modname,'Le champ <FSIC> est absent',1)
    362362
    … …  
    369369
    370370! Land fraction
    371                 ierr = NF90_INQ_VARID(nid, 'FTER', nvarid)
     371                ierr = nf90_inq_varid(nid, 'FTER', nvarid)
    372372                IF (ierr /= nf90_noerr) CALL abort_physic(modname,'Le champ <FTER> est absent',1)
    373373               
    … …  
    376376
    377377! Continentale ice fraction
    378                 ierr = NF90_INQ_VARID(nid, 'FLIC', nvarid)
     378                ierr = nf90_inq_varid(nid, 'FLIC', nvarid)
    379379                IF (ierr /= nf90_noerr) CALL abort_physic(modname,'Le champ <FLIC> est absent',1)
    380380
    … …  
    391391          IF ( type_ocean /= 'couple') THEN
    392392
    393              ierr = NF90_INQ_VARID(nid, 'SST', nvarid)
     393             ierr = nf90_inq_varid(nid, 'SST', nvarid)
    394394             IF (ierr /= nf90_noerr) CALL abort_physic(modname,'Le champ <SST> est absent',1)
    395395
    … …  
    407407
    408408! Read albedo
    409              ierr = NF90_INQ_VARID(nid, 'ALB', nvarid)
     409             ierr = nf90_inq_varid(nid, 'ALB', nvarid)
    410410             IF (ierr /= nf90_noerr) CALL abort_physic(modname,'Le champ <ALB> est absent',1)
    411411
    … …  
    414414
    415415! Read rugosity
    416              ierr = NF90_INQ_VARID(nid, 'RUG', nvarid)
     416             ierr = nf90_inq_varid(nid, 'RUG', nvarid)
    417417             IF (ierr /= nf90_noerr) CALL abort_physic(modname,'Le champ <RUG> est absent',1)
    418418

  • LMDZ6/branches/Amaury_dev/libf/phylmd/limit_slab.F90

    r5100 r5101  
    8484        ! First read first layer
    8585        ! try first "BILS_OCE01"
    86         ierr = NF90_INQ_VARID(nid, 'BILS_OCE01', nvarid)
     86        ierr = nf90_inq_varid(nid, 'BILS_OCE01', nvarid)
    8787        IF (ierr /= nf90_noerr) THEN
    8888            ! Else BILS_OCE
    89             ierr = NF90_INQ_VARID(nid, 'BILS_OCE', nvarid)
     89            ierr = nf90_inq_varid(nid, 'BILS_OCE', nvarid)
    9090            IF (ierr /= nf90_noerr) THEN
    9191              read_bils=.FALSE.
    … …  
    102102          DO i=2,nslay
    103103            WRITE(str2,'(i2.2)') i
    104             ierr = NF90_INQ_VARID(nid,'BILS_OCE'//str2, nvarid)
     104            ierr = nf90_inq_varid(nid,'BILS_OCE'//str2, nvarid)
    105105            IF (ierr==nf90_noerr) THEN
    106106              ierr = nf90_get_var(nid,nvarid,bils_glo(:,i),start,epais)
    … …  
    113113
    114114! Read sst_glo for this day
    115         ierr = NF90_INQ_VARID(nid, 'SST', nvarid)
     115        ierr = nf90_inq_varid(nid, 'SST', nvarid)
    116116        IF (ierr /= nf90_noerr)  THEN
    117117            read_sst=.FALSE.
    … …  
    127127
    128128! Read siv_glo for this day
    129         ierr = NF90_INQ_VARID(nid, 'SICV', nvarid)
     129        ierr = nf90_inq_varid(nid, 'SICV', nvarid)
    130130        IF (ierr /= nf90_noerr)  THEN
    131131            read_siv=.FALSE.

  • LMDZ6/branches/Amaury_dev/libf/phylmd/lmdz_atke_exchange_coeff.F90

    r5099 r5101  
    2323!=======================================================================
    2424
    25 USE lmdz_atke_turbulence_ini, ONLY : iflag_atke, kappa, l0, ric, cinf, rpi, rcpd, atke_ok_virtual, ri0, ri1
    26 USE lmdz_atke_turbulence_ini, ONLY : cepsilon, pr_slope, pr_asym, pr_neut, ctkes, rg, rd, rv, atke_ok_vdiff
    27 USE lmdz_atke_turbulence_ini, ONLY : viscom, viscoh, clmix, clmixshear, iflag_atke_lmix, lmin, smmin, cn
     25USE lmdz_atke_turbulence_ini, ONLY: iflag_atke, kappa, l0, ric, cinf, rpi, rcpd, atke_ok_virtual, ri0, ri1
     26USE lmdz_atke_turbulence_ini, ONLY: cepsilon, pr_slope, pr_asym, pr_neut, ctkes, rg, rd, rv, atke_ok_vdiff
     27USE lmdz_atke_turbulence_ini, ONLY: viscom, viscoh, clmix, clmixshear, iflag_atke_lmix, lmin, smmin, cn
    2828
    2929!!-------------------------------------------------------------------------------------------------------------
    … …  
    416416! E Vignon, July 2023
    417417
    418 USE lmdz_atke_turbulence_ini, ONLY : rd, cke, viscom
     418USE lmdz_atke_turbulence_ini, ONLY: rd, cke, viscom
    419419
    420420

  • LMDZ6/branches/Amaury_dev/libf/phylmd/lmdz_atke_turbulence_ini.F90

    r5082 r5101  
    5353      !!----------------------------------------------------------------------
    5454
    55         USE ioipsl_getin_p_mod, ONLY : getin_p                                                                                                     
     55        USE ioipsl_getin_p_mod, ONLY: getin_p
    5656
    5757      ! input arguments (universal constants for planet)

  • LMDZ6/branches/Amaury_dev/libf/phylmd/lmdz_blowing_snow_ini.F90

    r4835 r5101  
    3434                                  RVTMP2_in, RTT_in,RD_in,RG_in, RV_in, RPI_in)
    3535
    36          USE ioipsl_getin_p_mod, ONLY : getin_p
     36         USE ioipsl_getin_p_mod, ONLY: getin_p
    3737
    3838         real, intent(in) :: RCPD_in, RLSTT_in, RLVTT_in, RLMLT_in, RPI_in

  • LMDZ6/branches/Amaury_dev/libf/phylmd/lmdz_blowing_snow_sublim_sedim.F90

    r5099 r5101  
    1111
    1212
    13 use lmdz_blowing_snow_ini, only : iflag_sublim_bs, iflag_sedim_bs, coef_sub_bs,RTT,RD,RG,fallv_bs
    14 use lmdz_blowing_snow_ini, only : qbmin, RCPD, RLSTT, RLMLT, RLVTT, RVTMP2, RV, RPI, tbsmelt, taumeltbs0, rhobs, r_bs
    15 USE lmdz_lscp_tools, only : calc_qsat_ecmwf
     13use lmdz_blowing_snow_ini, ONLY: iflag_sublim_bs, iflag_sedim_bs, coef_sub_bs,RTT,RD,RG,fallv_bs
     14use lmdz_blowing_snow_ini, ONLY: qbmin, RCPD, RLSTT, RLMLT, RLVTT, RVTMP2, RV, RPI, tbsmelt, taumeltbs0, rhobs, r_bs
     15USE lmdz_lscp_tools, ONLY: calc_qsat_ecmwf
    1616
    1717implicit none

  • LMDZ6/branches/Amaury_dev/libf/phylmd/lmdz_call_atke.F90

    r5082 r5101  
    11module lmdz_call_atke
    22
    3 USE lmdz_atke_exchange_coeff, ONLY :  atke_compute_km_kh
     3USE lmdz_atke_exchange_coeff, ONLY:  atke_compute_km_kh
    44
    55implicit none
    … …  
    1515
    1616
    17 USE lmdz_atke_turbulence_ini, ONLY : iflag_num_atke, rg, rd
     17USE lmdz_atke_turbulence_ini, ONLY: iflag_num_atke, rg, rd
    1818USE phys_local_var_mod, ONLY: tke_shear, tke_buoy, tke_trans
    1919

  • LMDZ6/branches/Amaury_dev/libf/phylmd/lmdz_call_blowing_snow.F90

    r4724 r5101  
    66                                  dtemp_bs,dq_bs,dqbs_bs,bsfl,precip_bs)
    77
    8 use lmdz_blowing_snow_sublim_sedim, only : blowing_snow_sublim_sedim
     8use lmdz_blowing_snow_sublim_sedim, ONLY: blowing_snow_sublim_sedim
    99implicit none
    1010

  • LMDZ6/branches/Amaury_dev/libf/phylmd/lmdz_call_cloud_optics_prop.F90

    r5087 r5101  
    1818  !------------------
    1919
    20   USE lmdz_cloud_optics_prop_ini , ONLY : ok_cdnc
    21   USE lmdz_cloud_optics_prop_ini , ONLY : bl95_b0, bl95_b1
    22   USE lmdz_cloud_optics_prop_ini , ONLY : iflag_ice_thermo, ok_new_lscp, iflag_t_glace
    23   USE lmdz_cloud_optics_prop, ONLY : cloud_optics_prop
     20  USE lmdz_cloud_optics_prop_ini , ONLY: ok_cdnc
     21  USE lmdz_cloud_optics_prop_ini , ONLY: bl95_b0, bl95_b1
     22  USE lmdz_cloud_optics_prop_ini , ONLY: iflag_ice_thermo, ok_new_lscp, iflag_t_glace
     23  USE lmdz_cloud_optics_prop, ONLY: cloud_optics_prop
    2424 
    2525  USE icefrac_lsc_mod ! computes ice fraction (JBM 3/14) 

  • LMDZ6/branches/Amaury_dev/libf/phylmd/lmdz_cloud_optics_prop.F90

    r5099 r5101  
    1111    icefrac_optics, dNovrN, ptconv,rnebcon, ccwcon)
    1212
    13   USE lmdz_cloud_optics_prop_ini , ONLY : flag_aerosol, ok_cdnc
    14   USE lmdz_cloud_optics_prop_ini , ONLY : lunout
    15   USE lmdz_cloud_optics_prop_ini , ONLY : bl95_b0, bl95_b1
    16   USE lmdz_cloud_optics_prop_ini , ONLY : latitude_deg
    17   USE lmdz_cloud_optics_prop_ini , ONLY : iflag_t_glace
    18   USE lmdz_cloud_optics_prop_ini , ONLY : cdnc_max, cdnc_max_m3
    19   USE lmdz_cloud_optics_prop_ini , ONLY : cdnc_min, cdnc_min_m3
    20   USE lmdz_cloud_optics_prop_ini , ONLY : thres_tau, thres_neb
    21   USE lmdz_cloud_optics_prop_ini , ONLY : prmhc, prlmc
    22   USE lmdz_cloud_optics_prop_ini , ONLY : coef_froi, coef_chau
    23   USE lmdz_cloud_optics_prop_ini , ONLY : seuil_neb
    24   USE lmdz_cloud_optics_prop_ini , ONLY : t_glace_min_old, t_glace_max_old
    25   USE lmdz_cloud_optics_prop_ini , ONLY : k_ice0, df
    26   USE lmdz_cloud_optics_prop_ini , ONLY : rg, rd, rpi
    27   USE lmdz_cloud_optics_prop_ini , ONLY : rad_chau1, rad_chau2, rad_froid, iflag_rei
    28   USE lmdz_cloud_optics_prop_ini , ONLY : ok_icefra_lscp, rei_max, rei_min
    29   USE lmdz_cloud_optics_prop_ini , ONLY : zepsec, novlp, iflag_ice_thermo, ok_new_lscp
     13  USE lmdz_cloud_optics_prop_ini , ONLY: flag_aerosol, ok_cdnc
     14  USE lmdz_cloud_optics_prop_ini , ONLY: lunout
     15  USE lmdz_cloud_optics_prop_ini , ONLY: bl95_b0, bl95_b1
     16  USE lmdz_cloud_optics_prop_ini , ONLY: latitude_deg
     17  USE lmdz_cloud_optics_prop_ini , ONLY: iflag_t_glace
     18  USE lmdz_cloud_optics_prop_ini , ONLY: cdnc_max, cdnc_max_m3
     19  USE lmdz_cloud_optics_prop_ini , ONLY: cdnc_min, cdnc_min_m3
     20  USE lmdz_cloud_optics_prop_ini , ONLY: thres_tau, thres_neb
     21  USE lmdz_cloud_optics_prop_ini , ONLY: prmhc, prlmc
     22  USE lmdz_cloud_optics_prop_ini , ONLY: coef_froi, coef_chau
     23  USE lmdz_cloud_optics_prop_ini , ONLY: seuil_neb
     24  USE lmdz_cloud_optics_prop_ini , ONLY: t_glace_min_old, t_glace_max_old
     25  USE lmdz_cloud_optics_prop_ini , ONLY: k_ice0, df
     26  USE lmdz_cloud_optics_prop_ini , ONLY: rg, rd, rpi
     27  USE lmdz_cloud_optics_prop_ini , ONLY: rad_chau1, rad_chau2, rad_froid, iflag_rei
     28  USE lmdz_cloud_optics_prop_ini , ONLY: ok_icefra_lscp, rei_max, rei_min
     29  USE lmdz_cloud_optics_prop_ini , ONLY: zepsec, novlp, iflag_ice_thermo, ok_new_lscp
    3030 
    3131

  • LMDZ6/branches/Amaury_dev/libf/phylmd/lmdz_cloud_optics_prop_ini.F90

    r5087 r5101  
    4848   iflag_ice_thermo_in, ok_new_lscp_in)
    4949
    50     USE ioipsl_getin_p_mod, ONLY : getin_p
     50    USE ioipsl_getin_p_mod, ONLY: getin_p
    5151
    5252    IMPLICIT NONE

  • LMDZ6/branches/Amaury_dev/libf/phylmd/lmdz_cloudth.F90

    r5099 r5101  
    819819!===========================================================================
    820820
    821       use lmdz_cloudth_ini, only : iflag_cloudth_vert,iflag_ratqs
    822       use lmdz_cloudth_ini, only : vert_alpha,vert_alpha_th, sigma1s_factor, sigma1s_power , sigma2s_factor , sigma2s_power , cloudth_ratqsmin , iflag_cloudth_vert_noratqs
     821      use lmdz_cloudth_ini, ONLY: iflag_cloudth_vert,iflag_ratqs
     822      use lmdz_cloudth_ini, ONLY: vert_alpha,vert_alpha_th, sigma1s_factor, sigma1s_power , sigma2s_factor , sigma2s_power , cloudth_ratqsmin , iflag_cloudth_vert_noratqs
    823823
    824824      IMPLICIT NONE
    … …  
    21232123!=============================================================================
    21242124
    2125     use phys_state_var_mod, ONLY : fm_therm, detr_therm, entr_therm
     2125    use phys_state_var_mod, ONLY: fm_therm, detr_therm, entr_therm
    21262126
    21272127    IMPLICIT none

  • LMDZ6/branches/Amaury_dev/libf/phylmd/lmdz_cloudth_ini.F90

    r4651 r5101  
    1212subroutine cloudth_ini(iflag_cloudth_vert_in,iflag_ratqs_in)
    1313
    14 use ioipsl_getin_p_mod, ONLY : getin_p
     14use ioipsl_getin_p_mod, ONLY: getin_p
    1515implicit none
    1616integer, intent(in) :: iflag_cloudth_vert_in,iflag_ratqs_in

  • LMDZ6/branches/Amaury_dev/libf/phylmd/lmdz_lscp.F90

    r5099 r5101  
    9595
    9696! USE de modules contenant des fonctions.
    97 USE lmdz_cloudth, ONLY : cloudth, cloudth_v3, cloudth_v6, cloudth_mpc
    98 USE lmdz_lscp_tools, ONLY : calc_qsat_ecmwf, calc_gammasat
    99 USE lmdz_lscp_tools, ONLY : icefrac_lscp, icefrac_lscp_turb
    100 USE lmdz_lscp_tools, ONLY : fallice_velocity, distance_to_cloud_top
    101 USE ice_sursat_mod, ONLY : ice_sursat
    102 USE lmdz_lscp_poprecip, ONLY : poprecip_precld, poprecip_postcld
     97USE lmdz_cloudth, ONLY: cloudth, cloudth_v3, cloudth_v6, cloudth_mpc
     98USE lmdz_lscp_tools, ONLY: calc_qsat_ecmwf, calc_gammasat
     99USE lmdz_lscp_tools, ONLY: icefrac_lscp, icefrac_lscp_turb
     100USE lmdz_lscp_tools, ONLY: fallice_velocity, distance_to_cloud_top
     101USE ice_sursat_mod, ONLY: ice_sursat
     102USE lmdz_lscp_poprecip, ONLY: poprecip_precld, poprecip_postcld
    103103
    104104! Use du module lmdz_lscp_ini contenant les constantes
    105 USE lmdz_lscp_ini, ONLY : prt_level, lunout
    106 USE lmdz_lscp_ini, ONLY : seuil_neb, niter_lscp, iflag_evap_prec, t_coup, DDT0, ztfondue, rain_int_min
    107 USE lmdz_lscp_ini, ONLY : ok_radocond_snow, a_tr_sca, cld_expo_con, cld_expo_lsc
    108 USE lmdz_lscp_ini, ONLY : iflag_cloudth_vert, iflag_rain_incloud_vol, iflag_t_glace, t_glace_min
    109 USE lmdz_lscp_ini, ONLY : coef_eva, coef_sub,cld_tau_lsc, cld_tau_con, cld_lc_lsc, cld_lc_con
    110 USE lmdz_lscp_ini, ONLY : iflag_bergeron, iflag_fisrtilp_qsat, iflag_vice, cice_velo, dice_velo
    111 USE lmdz_lscp_ini, ONLY : iflag_autoconversion, ffallv_con, ffallv_lsc, min_frac_th_cld
    112 USE lmdz_lscp_ini, ONLY : RCPD, RLSTT, RLVTT, RLMLT, RVTMP2, RTT, RD, RG
    113 USE lmdz_lscp_ini, ONLY : ok_poprecip
    114 USE lmdz_lscp_ini, ONLY : iflag_icefrac
     105USE lmdz_lscp_ini, ONLY: prt_level, lunout
     106USE lmdz_lscp_ini, ONLY: seuil_neb, niter_lscp, iflag_evap_prec, t_coup, DDT0, ztfondue, rain_int_min
     107USE lmdz_lscp_ini, ONLY: ok_radocond_snow, a_tr_sca, cld_expo_con, cld_expo_lsc
     108USE lmdz_lscp_ini, ONLY: iflag_cloudth_vert, iflag_rain_incloud_vol, iflag_t_glace, t_glace_min
     109USE lmdz_lscp_ini, ONLY: coef_eva, coef_sub,cld_tau_lsc, cld_tau_con, cld_lc_lsc, cld_lc_con
     110USE lmdz_lscp_ini, ONLY: iflag_bergeron, iflag_fisrtilp_qsat, iflag_vice, cice_velo, dice_velo
     111USE lmdz_lscp_ini, ONLY: iflag_autoconversion, ffallv_con, ffallv_lsc, min_frac_th_cld
     112USE lmdz_lscp_ini, ONLY: RCPD, RLSTT, RLVTT, RLMLT, RVTMP2, RTT, RD, RG
     113USE lmdz_lscp_ini, ONLY: ok_poprecip
     114USE lmdz_lscp_ini, ONLY: iflag_icefrac
    115115IMPLICIT NONE
    116116

  • LMDZ6/branches/Amaury_dev/libf/phylmd/lmdz_lscp_ini.F90

    r5082 r5101  
    251251
    252252
    253    USE ioipsl_getin_p_mod, ONLY : getin_p
     253   USE ioipsl_getin_p_mod, ONLY: getin_p
    254254   USE ice_sursat_mod, ONLY: ice_sursat_init
    255    USE lmdz_cloudth_ini, ONLY : cloudth_ini
     255   USE lmdz_cloudth_ini, ONLY: cloudth_ini
    256256
    257257   REAL, INTENT(IN)      :: dtime

  • LMDZ6/branches/Amaury_dev/libf/phylmd/lmdz_lscp_old.F90

    r5099 r5101  
    1414
    1515  USE icefrac_lsc_mod ! compute ice fraction (JBM 3/14)
    16   USE lmdz_cloudth, only : cloudth, cloudth_v3, cloudth_v6
     16  USE lmdz_cloudth, ONLY: cloudth, cloudth_v3, cloudth_v6
    1717
    1818  USE lmdz_lscp_ini, ONLY: prt_level, lunout
    19   USE lmdz_lscp_ini, ONLY : fl_cor_ebil
     19  USE lmdz_lscp_ini, ONLY: fl_cor_ebil
    2020  USE lmdz_lscp_ini, ONLY: iflag_t_glace,t_glace_min, t_glace_max, exposant_glace
    21   USE lmdz_lscp_ini, ONLY : seuil_neb, rain_int_min, iflag_evap_prec, iflag_oldbug_fisrtilp,a_tr_sca
     21  USE lmdz_lscp_ini, ONLY: seuil_neb, rain_int_min, iflag_evap_prec, iflag_oldbug_fisrtilp,a_tr_sca
    2222  USE lmdz_lscp_ini, ONLY: iflag_cloudth_vert, iflag_rain_incloud_vol
    2323  USE lmdz_lscp_ini, ONLY: coef_eva, ffallv_lsc, ffallv_con

  • LMDZ6/branches/Amaury_dev/libf/phylmd/lmdz_lscp_poprecip.F90

    r5099 r5101  
    2222           )
    2323
    24 USE lmdz_lscp_ini, ONLY : prt_level, lunout
    25 USE lmdz_lscp_ini, ONLY : coef_eva, coef_sub, expo_eva, expo_sub, thresh_precip_frac
    26 USE lmdz_lscp_ini, ONLY : RCPD, RLSTT, RLVTT, RLMLT, RVTMP2, RTT, RD, RG
    27 USE lmdz_lscp_ini, ONLY : ok_corr_vap_evasub
    28 USE lmdz_lscp_tools, ONLY : calc_qsat_ecmwf
     24USE lmdz_lscp_ini, ONLY: prt_level, lunout
     25USE lmdz_lscp_ini, ONLY: coef_eva, coef_sub, expo_eva, expo_sub, thresh_precip_frac
     26USE lmdz_lscp_ini, ONLY: RCPD, RLSTT, RLVTT, RLMLT, RVTMP2, RTT, RD, RG
     27USE lmdz_lscp_ini, ONLY: ok_corr_vap_evasub
     28USE lmdz_lscp_tools, ONLY: calc_qsat_ecmwf
    2929
    3030IMPLICIT NONE
    … …  
    280280           dqsauto, dqsagg, dqsrim, dqsmelt, dqsfreez)
    281281
    282 USE lmdz_lscp_ini, ONLY : prt_level, lunout
    283 USE lmdz_lscp_ini, ONLY : RCPD, RLSTT, RLVTT, RLMLT, RVTMP2, RTT, RD, RG, RPI
    284 USE lmdz_lscp_tools, ONLY : calc_qsat_ecmwf
    285 
    286 USE lmdz_lscp_ini, ONLY : cld_lc_con, cld_tau_con, cld_expo_con, seuil_neb,    &
     282USE lmdz_lscp_ini, ONLY: prt_level, lunout
     283USE lmdz_lscp_ini, ONLY: RCPD, RLSTT, RLVTT, RLMLT, RVTMP2, RTT, RD, RG, RPI
     284USE lmdz_lscp_tools, ONLY: calc_qsat_ecmwf
     285
     286USE lmdz_lscp_ini, ONLY: cld_lc_con, cld_tau_con, cld_expo_con, seuil_neb,    &
    287287                          cld_lc_lsc, cld_tau_lsc, cld_expo_lsc, rain_int_min, &
    288288                          thresh_precip_frac, gamma_col, gamma_agg, gamma_rim, &

  • LMDZ6/branches/Amaury_dev/libf/phylmd/lmdz_lscp_tools.F90

    r5082 r5101  
    114114    USE print_control_mod, ONLY: lunout, prt_level
    115115    USE lmdz_lscp_ini, ONLY: t_glace_min, t_glace_max, exposant_glace, iflag_t_glace
    116     USE lmdz_lscp_ini, ONLY : RTT, dist_liq, temp_nowater
     116    USE lmdz_lscp_ini, ONLY: RTT, dist_liq, temp_nowater
    117117
    118118    IMPLICIT NONE
    … …  
    247247
    248248
    249    USE lmdz_lscp_ini, ONLY : prt_level, lunout
    250    USE lmdz_lscp_ini, ONLY : RCPD, RLSTT, RLVTT, RLMLT, RVTMP2, RTT, RD, RG, RV, RPI
    251    USE lmdz_lscp_ini, ONLY : seuil_neb, temp_nowater
    252    USE lmdz_lscp_ini, ONLY : tau_mixenv, lmix_mpc, naero5, gamma_snwretro, gamma_taud, capa_crystal
    253    USE lmdz_lscp_ini, ONLY : eps
     249   USE lmdz_lscp_ini, ONLY: prt_level, lunout
     250   USE lmdz_lscp_ini, ONLY: RCPD, RLSTT, RLVTT, RLMLT, RVTMP2, RTT, RD, RG, RV, RPI
     251   USE lmdz_lscp_ini, ONLY: seuil_neb, temp_nowater
     252   USE lmdz_lscp_ini, ONLY: tau_mixenv, lmix_mpc, naero5, gamma_snwretro, gamma_taud, capa_crystal
     253   USE lmdz_lscp_ini, ONLY: eps
    254254
    255255   IMPLICIT NONE
    … …  
    651651!++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    652652   
    653    USE lmdz_lscp_ini, ONLY : rd,rg,tresh_cl
     653   USE lmdz_lscp_ini, ONLY: rd,rg,tresh_cl
    654654
    655655   IMPLICIT NONE

  • LMDZ6/branches/Amaury_dev/libf/phylmd/lmdz_ratqs_ini.F90

    r5081 r5101  
    2525SUBROUTINE ratqs_ini(klon,klev,iflag_thermals,lunout_in,nbsrf_in,is_lic_in,is_ter_in,RG_in,RV_in,RD_in,RCPD_in,RLSTT_in,RLVTT_in,RTT_in)
    2626
    27    USE ioipsl_getin_p_mod, ONLY : getin_p
     27   USE ioipsl_getin_p_mod, ONLY: getin_p
    2828
    2929integer, intent(in) :: klon,klev,iflag_thermals,lunout_in

  • LMDZ6/branches/Amaury_dev/libf/phylmd/lmdz_ratqs_multi.F90

    r5099 r5101  
    3030           ratqs_inter_)
    3131
    32 USE lmdz_ratqs_ini, ONLY : a_ratqs_cv,tau_var,fac_tau,tau_cumul,a_ratqs_wake, dqimpl
    33 USE lmdz_ratqs_ini, ONLY : RG
    34 USE lmdz_ratqs_ini, ONLY : povariance, var_conv
    35 USE lmdz_thermcell_dq,  ONLY : thermcell_dq
     32USE lmdz_ratqs_ini, ONLY: a_ratqs_cv,tau_var,fac_tau,tau_cumul,a_ratqs_wake, dqimpl
     33USE lmdz_ratqs_ini, ONLY: RG
     34USE lmdz_ratqs_ini, ONLY: povariance, var_conv
     35USE lmdz_thermcell_dq,  ONLY: thermcell_dq
    3636
    3737implicit none
    … …  
    214214! Etienne Vignon, November 2021: effect of subgrid orography on ratqs
    215215
    216 USE lmdz_ratqs_ini, ONLY : RG,RV,RD,RLSTT,RLVTT,RTT,nbsrf,is_lic,is_ter
     216USE lmdz_ratqs_ini, ONLY: RG,RV,RD,RLSTT,RLVTT,RTT,nbsrf,is_lic,is_ter
    217217
    218218IMPLICIT NONE
    … …  
    296296USE lmdz_lscp_tools, ONLY: CALC_QSAT_ECMWF
    297297
    298 USE lmdz_ratqs_ini, ONLY : RG,RD,RTT,nbsrf
     298USE lmdz_ratqs_ini, ONLY: RG,RD,RTT,nbsrf
    299299
    300300IMPLICIT NONE
    … …  
    377377! model. J. Atmos. Sci. 73, 279???291. https://doi.org/10.1175/JAS-D-15-0021.
    378378
    379 USE lmdz_ratqs_ini, ONLY : RG,RV,RD,RCPD,RLSTT,RLVTT,RTT
     379USE lmdz_ratqs_ini, ONLY: RG,RV,RD,RCPD,RLSTT,RLVTT,RTT
    380380
    381381IMPLICIT NONE

  • LMDZ6/branches/Amaury_dev/libf/phylmd/lmdz_thermcell_alp.F90

    r5099 r5101  
    2020
    2121      USE indice_sol_mod
    22       USE lmdz_thermcell_main, ONLY : thermcell_tke_transport
     22      USE lmdz_thermcell_main, ONLY: thermcell_tke_transport
    2323      IMPLICIT NONE
    2424

  • LMDZ6/branches/Amaury_dev/libf/phylmd/lmdz_thermcell_down.F90

    r5099 r5101  
    226226
    227227
    228    USE lmdz_thermcell_ini, ONLY : prt_level,RLvCp,RKAPPA,RETV,fact_thermals_down
     228   USE lmdz_thermcell_ini, ONLY: prt_level,RLvCp,RKAPPA,RETV,fact_thermals_down
    229229   IMPLICIT NONE
    230230

  • LMDZ6/branches/Amaury_dev/libf/phylmd/lmdz_thermcell_env.F90

    r5099 r5101  
    1111
    1212
    13    USE lmdz_thermcell_ini, ONLY : prt_level,RLvCp,RKAPPA,RETV
    14    USE lmdz_thermcell_qsat, ONLY : thermcell_qsat
     13   USE lmdz_thermcell_ini, ONLY: prt_level,RLvCp,RKAPPA,RETV
     14   USE lmdz_thermcell_qsat, ONLY: thermcell_qsat
    1515   IMPLICIT NONE
    1616

  • LMDZ6/branches/Amaury_dev/libf/phylmd/lmdz_thermcell_flux2.F90

    r5099 r5101  
    1616!---------------------------------------------------------------------------
    1717
    18       USE lmdz_thermcell_ini, ONLY : prt_level,iflag_thermals_optflux
     18      USE lmdz_thermcell_ini, ONLY: prt_level,iflag_thermals_optflux
    1919      IMPLICIT NONE
    2020     

  • LMDZ6/branches/Amaury_dev/libf/phylmd/lmdz_thermcell_ini.F90

    r5087 r5101  
    5050      RG_in,RD_in,RCPD_in,RKAPPA_in,RLVTT_in,RETV_in)
    5151
    52    USE ioipsl_getin_p_mod, ONLY : getin_p
     52   USE ioipsl_getin_p_mod, ONLY: getin_p
    5353
    5454integer, intent(in) :: iflag_thermals,prt_level_in,lunout_in

  • LMDZ6/branches/Amaury_dev/libf/phylmd/lmdz_thermcell_main.F90

    r5099 r5101  
    4242
    4343! USE necessaires pour les lignes importees de thermcell_env
    44    USE lmdz_thermcell_ini, ONLY : RLvCp,RKAPPA,RETV
    45    USE lmdz_thermcell_qsat, ONLY : thermcell_qsat
     44   USE lmdz_thermcell_ini, ONLY: RLvCp,RKAPPA,RETV
     45   USE lmdz_thermcell_qsat, ONLY: thermcell_qsat
    4646
    4747
    4848#ifdef ISO
    49   USE infotrac_phy, ONLY : ntiso
     49  USE infotrac_phy, ONLY: ntiso
    5050#ifdef ISOVERIF
    51   USE isotopes_mod, ONLY : iso_eau,iso_HDO
     51  USE isotopes_mod, ONLY: iso_eau,iso_HDO
    5252  USE isotopes_verif_mod, ONLY: iso_verif_egalite, &
    5353        iso_verif_aberrant_encadre

  • LMDZ6/branches/Amaury_dev/libf/phylmd/lmdz_thermcell_old.F90

    r5093 r5101  
    88  USE dimphy
    99  USE write_field_phy
    10   USE lmdz_thermcell_dv2, ONLY : thermcell_dv2
    11   USE lmdz_thermcell_dq, ONLY : thermcell_dq
     10  USE lmdz_thermcell_dv2, ONLY: thermcell_dv2
     11  USE lmdz_thermcell_dq, ONLY: thermcell_dq
    1212  IMPLICIT NONE
    1313
    … …  
    10121012        ! si sature: ql est surestime, d'ou la sous-relax
    10131013        dt = 0.5*rlvcp*qlbef
    1014         ! write(18,*),'DT0=',DT
     1014        ! write(18,*) 'DT0=',DT
    10151015        ! on pourra enchainer 2 ou 3 calculs sans Do while
    10161016        DO WHILE (abs(dt)>ddt0)

  • LMDZ6/branches/Amaury_dev/libf/phylmd/lmdz_thermcell_plume.F90

    r5099 r5101  
    2929       USE lmdz_thermcell_ini, ONLY: detr_min, entr_min, detr_q_coef, detr_q_power
    3030       USE lmdz_thermcell_ini, ONLY: mix0, thermals_flag_alim
    31        USE lmdz_thermcell_alim, ONLY : thermcell_alim
    32        USE lmdz_thermcell_qsat, ONLY : thermcell_qsat
     31       USE lmdz_thermcell_alim, ONLY: thermcell_alim
     32       USE lmdz_thermcell_qsat, ONLY: thermcell_qsat
    3333
    3434

  • LMDZ6/branches/Amaury_dev/libf/phylmd/lmdz_thermcell_plume_6A.F90

    r5099 r5101  
    1919       USE lmdz_thermcell_ini, ONLY: detr_min, entr_min, detr_q_coef, detr_q_power
    2020       USE lmdz_thermcell_ini, ONLY: mix0, thermals_flag_alim
    21        USE lmdz_thermcell_alim, ONLY : thermcell_alim
    22        USE lmdz_thermcell_qsat, ONLY : thermcell_qsat
     21       USE lmdz_thermcell_alim, ONLY: thermcell_alim
     22       USE lmdz_thermcell_qsat, ONLY: thermcell_qsat
    2323
    2424
    … …  
    724724
    725725      USE lmdz_thermcell_ini, ONLY: prt_level,fact_thermals_ed_dz,iflag_thermals_ed,RLvCP,RETV,RG
    726        USE lmdz_thermcell_qsat, ONLY : thermcell_qsat
     726       USE lmdz_thermcell_qsat, ONLY: thermcell_qsat
    727727      IMPLICIT NONE
    728728

  • LMDZ6/branches/Amaury_dev/libf/phylmd/lmdz_wake.F90

    r5099 r5101  
    2727
    2828
    29   USE lmdz_wake_ini , ONLY : wake_ini
    30   USE lmdz_wake_ini , ONLY : prt_level,epsim1,RG,RD
    31   USE lmdz_wake_ini , ONLY : stark, wdens_ref, coefgw, alpk, wk_pupper
    32   USE lmdz_wake_ini , ONLY : crep_upper, crep_sol, tau_cv, rzero, aa0, flag_wk_check_trgl
    33   USE lmdz_wake_ini , ONLY : ok_bug_gfl
    34   USE lmdz_wake_ini , ONLY : iflag_wk_act, iflag_wk_check_trgl, iflag_wk_pop_dyn, wdensinit, wdensthreshold
    35   USE lmdz_wake_ini , ONLY : sigmad, hwmin, wapecut, cstart, sigmaw_max, dens_rate, epsilon_loc
    36   USE lmdz_wake_ini , ONLY : iflag_wk_profile
    37   USE lmdz_wake_ini , ONLY : smallestreal,wk_nsub
     29  USE lmdz_wake_ini , ONLY: wake_ini
     30  USE lmdz_wake_ini , ONLY: prt_level,epsim1,RG,RD
     31  USE lmdz_wake_ini , ONLY: stark, wdens_ref, coefgw, alpk, wk_pupper
     32  USE lmdz_wake_ini , ONLY: crep_upper, crep_sol, tau_cv, rzero, aa0, flag_wk_check_trgl
     33  USE lmdz_wake_ini , ONLY: ok_bug_gfl
     34  USE lmdz_wake_ini , ONLY: iflag_wk_act, iflag_wk_check_trgl, iflag_wk_pop_dyn, wdensinit, wdensthreshold
     35  USE lmdz_wake_ini , ONLY: sigmad, hwmin, wapecut, cstart, sigmaw_max, dens_rate, epsilon_loc
     36  USE lmdz_wake_ini , ONLY: iflag_wk_profile
     37  USE lmdz_wake_ini , ONLY: smallestreal,wk_nsub
    3838
    3939
    … …  
    24142414                    ktop, wk_adv, h_zzz, ptop1, ktop1)
    24152415
    2416 USE lmdz_wake_ini , ONLY : wk_pupper
    2417 USE lmdz_wake_ini , ONLY : RG
    2418 USE lmdz_wake_ini , ONLY : hwmin
    2419 USE lmdz_wake_ini , ONLY : iflag_wk_new_ptop, wk_delta_t_min, wk_frac_int_delta_t
    2420 USE lmdz_wake_ini , ONLY : wk_int_delta_t_min
     2416USE lmdz_wake_ini , ONLY: wk_pupper
     2417USE lmdz_wake_ini , ONLY: RG
     2418USE lmdz_wake_ini , ONLY: hwmin
     2419USE lmdz_wake_ini , ONLY: iflag_wk_new_ptop, wk_delta_t_min, wk_frac_int_delta_t
     2420USE lmdz_wake_ini , ONLY: wk_int_delta_t_min
    24212421
    24222422IMPLICIT NONE
    … …  
    28172817               
    28182818
    2819   USE lmdz_wake_ini , ONLY : wake_ini
    2820   USE lmdz_wake_ini , ONLY : prt_level,RG
    2821   USE lmdz_wake_ini , ONLY : stark, wdens_ref
    2822   USE lmdz_wake_ini , ONLY : tau_cv, rzero, aa0
    2823 !!  USE lmdz_wake_ini , ONLY : iflag_wk_pop_dyn, wdensmin
    2824   USE lmdz_wake_ini , ONLY : iflag_wk_pop_dyn
    2825   USE lmdz_wake_ini , ONLY : sigmad, cstart, sigmaw_max
     2819  USE lmdz_wake_ini , ONLY: wake_ini
     2820  USE lmdz_wake_ini , ONLY: prt_level,RG
     2821  USE lmdz_wake_ini , ONLY: stark, wdens_ref
     2822  USE lmdz_wake_ini , ONLY: tau_cv, rzero, aa0
     2823!!  USE lmdz_wake_ini , ONLY: iflag_wk_pop_dyn, wdensmin
     2824  USE lmdz_wake_ini , ONLY: iflag_wk_pop_dyn
     2825  USE lmdz_wake_ini , ONLY: sigmad, cstart, sigmaw_max
    28262826 
    28272827IMPLICIT NONE
    … …  
    29812981                                             
    29822982
    2983   USE lmdz_wake_ini , ONLY : wake_ini
    2984   USE lmdz_wake_ini , ONLY : prt_level,RG
    2985   USE lmdz_wake_ini , ONLY : stark, wdens_ref
    2986   USE lmdz_wake_ini , ONLY : tau_cv, rzero, aa0
    2987 !!  USE lmdz_wake_ini , ONLY : iflag_wk_pop_dyn, wdensmin
    2988   USE lmdz_wake_ini , ONLY : iflag_wk_pop_dyn
    2989   USE lmdz_wake_ini , ONLY : sigmad, cstart, sigmaw_max
     2983  USE lmdz_wake_ini , ONLY: wake_ini
     2984  USE lmdz_wake_ini , ONLY: prt_level,RG
     2985  USE lmdz_wake_ini , ONLY: stark, wdens_ref
     2986  USE lmdz_wake_ini , ONLY: tau_cv, rzero, aa0
     2987!!  USE lmdz_wake_ini , ONLY: iflag_wk_pop_dyn, wdensmin
     2988  USE lmdz_wake_ini , ONLY: iflag_wk_pop_dyn
     2989  USE lmdz_wake_ini , ONLY: sigmad, cstart, sigmaw_max
    29902990 
    29912991IMPLICIT NONE
    … …  
    31323132                                             
    31333133
    3134   USE lmdz_wake_ini , ONLY : wake_ini
    3135   USE lmdz_wake_ini , ONLY : prt_level,RG
    3136   USE lmdz_wake_ini , ONLY : stark, wdens_ref
    3137   USE lmdz_wake_ini , ONLY : tau_cv, rzero, aa0
    3138 !!  USE lmdz_wake_ini , ONLY : iflag_wk_pop_dyn, wdensmin
    3139   USE lmdz_wake_ini , ONLY : iflag_wk_pop_dyn
    3140   USE lmdz_wake_ini , ONLY : sigmad, cstart, sigmaw_max
    3141   USE lmdz_wake_ini , ONLY : smallestreal
     3134  USE lmdz_wake_ini , ONLY: wake_ini
     3135  USE lmdz_wake_ini , ONLY: prt_level,RG
     3136  USE lmdz_wake_ini , ONLY: stark, wdens_ref
     3137  USE lmdz_wake_ini , ONLY: tau_cv, rzero, aa0
     3138!!  USE lmdz_wake_ini , ONLY: iflag_wk_pop_dyn, wdensmin
     3139  USE lmdz_wake_ini , ONLY: iflag_wk_pop_dyn
     3140  USE lmdz_wake_ini , ONLY: sigmad, cstart, sigmaw_max
     3141  USE lmdz_wake_ini , ONLY: smallestreal
    31423142 
    31433143IMPLICIT NONE

  • LMDZ6/branches/Amaury_dev/libf/phylmd/lmdz_wake_ini.F90

    r5099 r5101  
    102102  ! -------------------------------------------------------------------------
    103103
    104   USE ioipsl_getin_p_mod, ONLY : getin_p
     104  USE ioipsl_getin_p_mod, ONLY: getin_p
    105105  real eps
    106106  integer, intent(in) :: prt_lev

  • LMDZ6/branches/Amaury_dev/libf/phylmd/lsc_scav.F90

    r5099 r5101  
    1010  USE mod_phys_lmdz_para
    1111  USE traclmdz_mod
    12   USE infotrac_phy,ONLY : nbtr
     12  USE infotrac_phy,ONLY: nbtr
    1313  USE iophy
    1414  IMPLICIT NONE

  • LMDZ6/branches/Amaury_dev/libf/phylmd/macv2sp.F90

    r5099 r5101  
    1414
    1515  USE mo_simple_plumes, ONLY: sp_aop_profile
    16   USE phys_cal_mod, ONLY : year_cur, day_cur, year_len
     16  USE phys_cal_mod, ONLY: year_cur, day_cur, year_len
    1717  USE dimphy
    1818  USE aero_mod
    1919  USE phys_local_var_mod, ONLY: t_seri, od443aer, od550aer, od865aer, ec550aer, dryod550aer, od550lt1aer, dNovrN
    20   !!USE YOMCST, ONLY : RD, RG
     20  !!USE YOMCST, ONLY: RD, RG
    2121
    2222  IMPLICIT NONE

  • LMDZ6/branches/Amaury_dev/libf/phylmd/methox.F90

    r5087 r5101  
    5959!     ------------------------------------------------------------------
    6060
    61 USE YOEMETH   , ONLY : RALPHA1 ,RALPHA2  ,RQLIM   ,&
     61USE YOEMETH   , ONLY: RALPHA1 ,RALPHA2  ,RQLIM   ,&
    6262   RPBOTOX,  RPBOTPH ,RPTOPOX  ,RPTOPPH ,&
    6363   RALPHA3,  RLOGPPH

  • LMDZ6/branches/Amaury_dev/libf/phylmd/nuage.F90

    r5099 r5101  
    77  USE lmdz_lscp_tools, only: icefrac_lscp
    88  USE icefrac_lsc_mod ! computes ice fraction (JBM 3/14)
    9   USE lmdz_lscp_ini, only : iflag_t_glace
     9  USE lmdz_lscp_ini, ONLY: iflag_t_glace
    1010  USE phys_local_var_mod, ONLY: ptconv
    1111  IMPLICIT NONE

  • LMDZ6/branches/Amaury_dev/libf/phylmd/oasis.F90

    r5099 r5101  
    112112
    113113    USE IOIPSL
    114     USE surface_data, ONLY : version_ocean
    115     USE carbon_cycle_mod, ONLY : carbon_cycle_cpl
    116     USE wxios, ONLY : wxios_context_init
    117     USE chemistry_cycle_mod, ONLY : dms_cycle_cpl, n2o_cycle_cpl
     114    USE surface_data, ONLY: version_ocean
     115    USE carbon_cycle_mod, ONLY: carbon_cycle_cpl
     116    USE wxios, ONLY: wxios_context_init
     117    USE chemistry_cycle_mod, ONLY: dms_cycle_cpl, n2o_cycle_cpl
    118118    USE lmdz_xios 
    119119    USE print_control_mod, ONLY: lunout

  • LMDZ6/branches/Amaury_dev/libf/phylmd/ocean_albedo.F90

    r5099 r5101  
    4444USE ocean_albedo_para
    4545USE dimphy
    46 USE phys_state_var_mod, ONLY : chl_con
     46USE phys_state_var_mod, ONLY: chl_con
    4747
    4848

  • LMDZ6/branches/Amaury_dev/libf/phylmd/ocean_cpl_mod.F90

    r5099 r5101  
    2323! Allocate fields for this module and initailize the module mod_cpl
    2424
    25     USE dimphy,           ONLY : klon
     25    USE dimphy,           ONLY: klon
    2626    USE cpl_mod
    2727
    … …  
    6161! surface is done and finally it sends some fields to the coupler.
    6262
    63     USE dimphy,           ONLY : klon
     63    USE dimphy,           ONLY: klon
    6464    USE calcul_fluxs_mod
    6565    USE indice_sol_mod
    66     USE phys_output_var_mod, ONLY : sens_prec_liq_o, sens_prec_sol_o, lat_prec_liq_o, lat_prec_sol_o
    67     USE cpl_mod, ONLY : gath2cpl, cpl_receive_ocean_fields, &
     66    USE phys_output_var_mod, ONLY: sens_prec_liq_o, sens_prec_sol_o, lat_prec_liq_o, lat_prec_sol_o
     67    USE cpl_mod, ONLY: gath2cpl, cpl_receive_ocean_fields, &
    6868         cpl_send_ocean_fields
    6969    use config_ocean_skin_m, only: activate_ocean_skin
    … …  
    252252! some fields to the coupler.
    253253
    254     USE dimphy,           ONLY : klon
     254    USE dimphy,           ONLY: klon
    255255    USE cpl_mod
    256256    USE calcul_fluxs_mod
    257257    USE indice_sol_mod
    258     USE phys_output_var_mod, ONLY : sens_prec_liq_o, sens_prec_sol_o, lat_prec_liq_o, lat_prec_sol_o
     258    USE phys_output_var_mod, ONLY: sens_prec_liq_o, sens_prec_sol_o, lat_prec_liq_o, lat_prec_sol_o
    259259
    260260    INCLUDE "YOMCST.h"

  • LMDZ6/branches/Amaury_dev/libf/phylmd/ocean_forced_mod.F90

    r5099 r5101  
    3939    USE mod_grid_phy_lmdz
    4040    USE indice_sol_mod
    41     USE phys_output_var_mod, ONLY : sens_prec_liq_o, sens_prec_sol_o, lat_prec_liq_o, lat_prec_sol_o
     41    USE phys_output_var_mod, ONLY: sens_prec_liq_o, sens_prec_sol_o, lat_prec_liq_o, lat_prec_sol_o
    4242    use config_ocean_skin_m, only: activate_ocean_skin
    4343#ifdef ISO
    … …  
    262262    USE geometry_mod, ONLY: longitude,latitude
    263263    USE calcul_fluxs_mod
    264     USE surface_data,     ONLY : calice, calsno
     264    USE surface_data,     ONLY: calice, calsno
    265265    USE limit_read_mod
    266     USE fonte_neige_mod,  ONLY : fonte_neige
     266    USE fonte_neige_mod,  ONLY: fonte_neige
    267267    USE indice_sol_mod
    268     USE phys_output_var_mod, ONLY : sens_prec_liq_o, sens_prec_sol_o, lat_prec_liq_o, lat_prec_sol_o
     268    USE phys_output_var_mod, ONLY: sens_prec_liq_o, sens_prec_sol_o, lat_prec_liq_o, lat_prec_sol_o
    269269#ifdef ISO
    270270    USE infotrac_phy, ONLY: niso, ntiso
    … …  
    511511! This subroutine specifies the surface temperature to be used in 1D simulations
    512512
    513 !      USE dimphy, ONLY : klon
     513!      USE dimphy, ONLY: klon
    514514
    515515!      INTEGER, INTENT(IN)                  :: knon     ! nomber of points on compressed grid

  • LMDZ6/branches/Amaury_dev/libf/phylmd/ocean_slab_mod.F90

    r5099 r5101  
    128128  !, seaice_rst etc
    129129
    130     USE ioipsl_getin_p_mod, ONLY : getin_p
    131     USE mod_phys_lmdz_transfert_para, ONLY : gather
    132     USE slab_heat_transp_mod, ONLY : ini_slab_transp
     130    USE ioipsl_getin_p_mod, ONLY: getin_p
     131    USE mod_phys_lmdz_transfert_para, ONLY: gather
     132    USE slab_heat_transp_mod, ONLY: ini_slab_transp
    133133
    134134    ! Input variables

  • LMDZ6/branches/Amaury_dev/libf/phylmd/open_climoz_m.F90

    r5100 r5101  
    5454    nlev = SIZE(press_in_cen)
    5555    CALL nf95_inq_varid(ncID, "time", varID)
    56     CALL NF95_GW_VAR(ncid, varid, time_in)
     56    CALL nf95_gw_var(ncid, varid, time_in)
    5757    ntim = SIZE(time_in)
    5858

  • LMDZ6/branches/Amaury_dev/libf/phylmd/output_physiqex_mod.F90

    r4547 r5101  
    77SUBROUTINE output_physiqex(debut,zjulian,pdtphys,presnivs,paprs,u,v,t,qx,cf,zqr,zqs,zqg,ptke,theta)
    88
    9       USE dimphy, only : klon,klev
    10       USE iophy, only : histbeg_phy,histwrite_phy
    11       USE ioipsl, only : histvert,histdef,histend,histsync
    12       USE mod_phys_lmdz_para, only : jj_nb
    13       USE ioipsl_getin_p_mod, ONLY : getin_p
     9      USE dimphy, ONLY: klon,klev
     10      USE iophy, ONLY: histbeg_phy,histwrite_phy
     11      USE ioipsl, ONLY: histvert,histdef,histend,histsync
     12      USE mod_phys_lmdz_para, ONLY: jj_nb
     13      USE ioipsl_getin_p_mod, ONLY: getin_p
    1414      USE mod_grid_phy_lmdz, ONLY: nbp_lon,nbp_lat
    15       USE iophy, ONLY : init_iophy_new
     15      USE iophy, ONLY: init_iophy_new
    1616      USE geometry_mod, ONLY: latitude_deg, longitude_deg
    17       USE infotrac_phy, only : nqtot
     17      USE infotrac_phy, ONLY: nqtot
    1818
    1919

  • LMDZ6/branches/Amaury_dev/libf/phylmd/paramlmdz_phy_mod.F90

    r5099 r5101  
    151151
    152152#ifdef CPP_RRTM
    153     USE YOESW, ONLY : RSUN
     153    USE YOESW, ONLY: RSUN
    154154#endif
    155155

  • LMDZ6/branches/Amaury_dev/libf/phylmd/pbl_surface_mod.F90

    r5099 r5101  
    1111
    1212  USE dimphy
    13   USE mod_phys_lmdz_para,  ONLY : mpi_size
    14   USE mod_grid_phy_lmdz,   ONLY : klon_glo
     13  USE mod_phys_lmdz_para,  ONLY: mpi_size
     14  USE mod_grid_phy_lmdz,   ONLY: klon_glo
    1515  USE ioipsl
    16   USE surface_data,        ONLY : type_ocean, ok_veget, landice_opt
    17   USE surf_land_mod,       ONLY : surf_land
    18   USE surf_landice_mod,    ONLY : surf_landice
    19   USE surf_ocean_mod,      ONLY : surf_ocean
    20   USE surf_seaice_mod,     ONLY : surf_seaice
    21   USE cpl_mod,             ONLY : gath2cpl
    22   USE climb_hq_mod,        ONLY : climb_hq_down, climb_hq_up
    23   USE climb_qbs_mod,       ONLY : climb_qbs_down, climb_qbs_up
    24   USE climb_wind_mod,      ONLY : climb_wind_down, climb_wind_up
    25   USE coef_diff_turb_mod,  ONLY : coef_diff_turb
    26   USE lmdz_call_atke,      ONLY : call_atke
    27   USE ioipsl_getin_p_mod,  ONLY : getin_p
     16  USE surface_data,        ONLY: type_ocean, ok_veget, landice_opt
     17  USE surf_land_mod,       ONLY: surf_land
     18  USE surf_landice_mod,    ONLY: surf_landice
     19  USE surf_ocean_mod,      ONLY: surf_ocean
     20  USE surf_seaice_mod,     ONLY: surf_seaice
     21  USE cpl_mod,             ONLY: gath2cpl
     22  USE climb_hq_mod,        ONLY: climb_hq_down, climb_hq_up
     23  USE climb_qbs_mod,       ONLY: climb_qbs_down, climb_qbs_up
     24  USE climb_wind_mod,      ONLY: climb_wind_down, climb_wind_up
     25  USE coef_diff_turb_mod,  ONLY: coef_diff_turb
     26  USE lmdz_call_atke,      ONLY: call_atke
     27  USE ioipsl_getin_p_mod,  ONLY: getin_p
    2828  USE cdrag_mod
    2929  USE stdlevvar_mod
    30   USE wx_pbl_var_mod,      ONLY : wx_pbl_init, wx_pbl_final, &
     30  USE wx_pbl_var_mod,      ONLY: wx_pbl_init, wx_pbl_final, &
    3131                                  wx_pbl_prelim_0, wx_pbl_prelim_beta
    32   USE wx_pbl_mod,          ONLY : wx_pbl0_merge, wx_pbl_split, wx_pbl_dts_merge, &
     32  USE wx_pbl_mod,          ONLY: wx_pbl0_merge, wx_pbl_split, wx_pbl_dts_merge, &
    3333                                  wx_pbl_check, wx_pbl_dts_check, wx_evappot
    3434  use config_ocean_skin_m, only: activate_ocean_skin
    … …  
    8484    USE indice_sol_mod
    8585    USE print_control_mod, ONLY: lunout
    86     USE ioipsl_getin_p_mod, ONLY : getin_p
     86    USE ioipsl_getin_p_mod, ONLY: getin_p
    8787    IMPLICIT NONE
    8888
    … …  
    391391! treedrg--output-R- tree drag (m)               
    392392
    393     USE carbon_cycle_mod,   ONLY : carbon_cycle_cpl, carbon_cycle_tr, level_coupling_esm
    394     USE carbon_cycle_mod,   ONLY : co2_send, nbcf_out, fields_out, yfields_out, cfname_out
     393    USE carbon_cycle_mod,   ONLY: carbon_cycle_cpl, carbon_cycle_tr, level_coupling_esm
     394    USE carbon_cycle_mod,   ONLY: co2_send, nbcf_out, fields_out, yfields_out, cfname_out
    395395    use hbtm_mod, only: hbtm
    396396    USE indice_sol_mod
    397     USE time_phylmdz_mod,   ONLY : day_ini,annee_ref,itau_phy
    398     USE mod_grid_phy_lmdz,  ONLY : nbp_lon, nbp_lat, grid1dto2d_glo
    399     USE print_control_mod,  ONLY : prt_level,lunout
     397    USE time_phylmdz_mod,   ONLY: day_ini,annee_ref,itau_phy
     398    USE mod_grid_phy_lmdz,  ONLY: nbp_lon, nbp_lat, grid1dto2d_glo
     399    USE print_control_mod,  ONLY: prt_level,lunout
    400400#ifdef ISO
    401401  USE isotopes_mod, ONLY: Rdefault,iso_eau
    … …  
    407407#endif
    408408#endif
    409     USE ioipsl_getin_p_mod, ONLY : getin_p
     409    USE ioipsl_getin_p_mod, ONLY: getin_p
    410410    use phys_state_var_mod, only: ds_ns, dt_ns, delta_sst, delta_sal, dter, &
    411411         dser, dt_ds, zsig, zmea
    412412    use phys_output_var_mod, only: tkt, tks, taur, sss
    413     use lmdz_blowing_snow_ini, only : zeta_bs
     413    use lmdz_blowing_snow_ini, ONLY: zeta_bs
    414414    USE wxios, ONLY: missing_val_xios => missing_val, using_xios
    415415    USE netcdf, only: missing_val_netcdf => nf90_fill_real

  • LMDZ6/branches/Amaury_dev/libf/phylmd/phyaqua_mod.F90

    r5099 r5101  
    2323
    2424    USE dimphy, ONLY: klon
    25     USE geometry_mod, ONLY : latitude
     25    USE geometry_mod, ONLY: latitude
    2626    USE surface_data, ONLY: type_ocean, ok_veget
    2727    USE pbl_surface_mod, ONLY: pbl_surface_init
    … …  
    3636    USE mod_phys_lmdz_transfert_para, ONLY: bcast
    3737    USE mod_grid_phy_lmdz
    38     USE ioipsl_getin_p_mod, ONLY : getin_p
     38    USE ioipsl_getin_p_mod, ONLY: getin_p
    3939    USE phys_cal_mod , ONLY: calend, year_len_phy => year_len
    4040    IMPLICIT NONE

  • LMDZ6/branches/Amaury_dev/libf/phylmd/phyetat0_mod.F90

    r5099 r5101  
    1111
    1212  USE dimphy, only: klon, zmasq, klev
    13   USE iophy, ONLY : init_iophy_new
    14   USE ocean_cpl_mod,    ONLY : ocean_cpl_init
    15   USE fonte_neige_mod,  ONLY : fonte_neige_init
    16   USE pbl_surface_mod,  ONLY : pbl_surface_init
    17   USE surface_data,     ONLY : type_ocean, version_ocean
    18   USE phyetat0_get_mod, ONLY : phyetat0_get, phyetat0_srf
    19   USE phys_state_var_mod, ONLY : ancien_ok, clwcon, detr_therm, phys_tstep, &
     13  USE iophy, ONLY: init_iophy_new
     14  USE ocean_cpl_mod,    ONLY: ocean_cpl_init
     15  USE fonte_neige_mod,  ONLY: fonte_neige_init
     16  USE pbl_surface_mod,  ONLY: pbl_surface_init
     17  USE surface_data,     ONLY: type_ocean, version_ocean
     18  USE phyetat0_get_mod, ONLY: phyetat0_get, phyetat0_srf
     19  USE phys_state_var_mod, ONLY: ancien_ok, clwcon, detr_therm, phys_tstep, &
    2020       qsol, fevap, z0m, z0h, agesno, &
    2121       du_gwd_rando, du_gwd_front, entr_therm, f0, fm_therm, &

  • LMDZ6/branches/Amaury_dev/libf/phylmd/phyredem.F90

    r5099 r5101  
    1010!-------------------------------------------------------------------------------
    1111  USE dimphy, ONLY: klon, klev
    12   USE fonte_neige_mod,  ONLY : fonte_neige_final
    13   USE pbl_surface_mod,  ONLY : pbl_surface_final
     12  USE fonte_neige_mod,  ONLY: fonte_neige_final
     13  USE pbl_surface_mod,  ONLY: pbl_surface_final
    1414  USE phys_state_var_mod, ONLY: radpas, zmasq, pctsrf,                       &
    1515                                ftsol, beta_aridity, delta_tsurf, falb_dir,  &
    … …  
    3232                                delta_sst, ratqs_inter_, dter, dser, dt_ds
    3333
    34   USE geometry_mod, ONLY : longitude_deg, latitude_deg
     34  USE geometry_mod, ONLY: longitude_deg, latitude_deg
    3535  USE iostart, ONLY: open_restartphy, close_restartphy, enddef_restartphy, put_field, put_var
    36   USE traclmdz_mod, ONLY : traclmdz_to_restart
     36  USE traclmdz_mod, ONLY: traclmdz_to_restart
    3737  USE infotrac_phy, ONLY: type_trac, nqtot, tracers, nbtr
    38   USE carbon_cycle_mod, ONLY : carbon_cycle_cpl, co2_send, carbon_cycle_rad, RCO2_glo
     38  USE carbon_cycle_mod, ONLY: carbon_cycle_cpl, co2_send, carbon_cycle_rad, RCO2_glo
    3939  USE indice_sol_mod, ONLY: nbsrf, is_oce, is_sic, is_ter, is_lic, epsfra
    4040  USE surface_data, ONLY: type_ocean, version_ocean
    41   USE ocean_slab_mod, ONLY : nslay, tslab, seaice, tice, fsic
     41  USE ocean_slab_mod, ONLY: nslay, tslab, seaice, tice, fsic
    4242  USE time_phylmdz_mod, ONLY: annee_ref, day_end, itau_phy, pdtphys
    4343  use config_ocean_skin_m, only: activate_ocean_skin 

  • LMDZ6/branches/Amaury_dev/libf/phylmd/phys_local_var_mod.F90

    r5099 r5101  
    33
    44MODULE phys_local_var_mod
    5   USE lmdz_cppkeys_wrapper, ONLY : CPPKEY_STRATAER
     5  USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_STRATAER
    66  ! Variables locales pour effectuer les appels en serie
    77  !======================================================================
    … …  
    815815  SUBROUTINE phys_local_var_init
    816816    USE dimphy
    817     USE infotrac_phy, ONLY : nbtr, nqtot
    818 #ifdef ISO
    819 USE infotrac_phy, ONLY : ntraciso=>ntiso,niso
     817    USE infotrac_phy, ONLY: nbtr, nqtot
     818#ifdef ISO
     819USE infotrac_phy, ONLY: ntraciso=>ntiso,niso
    820820#endif
    821821    USE aero_mod
    … …  
    823823    USE phys_output_var_mod
    824824    USE phys_state_var_mod
    825     USE infotrac_phy, ONLY : nbtr_bin
     825    USE infotrac_phy, ONLY: nbtr_bin
    826826
    827827    IMPLICIT NONE

  • LMDZ6/branches/Amaury_dev/libf/phylmd/phys_output_mod.F90

    r5099 r5101  
    44  USE indice_sol_mod
    55  USE phys_output_var_mod
    6   USE phys_output_write_mod, ONLY : phys_output_write
     6  USE phys_output_write_mod, ONLY: phys_output_write
    77  REAL, DIMENSION(nfiles),SAVE :: ecrit_files
    88
    … …  
    3737    USE strings_mod,  ONLY: maxlen
    3838    USE ioipsl
    39     USE phys_cal_mod, only : hour, calend
     39    USE phys_cal_mod, ONLY: hour, calend
    4040    USE mod_phys_lmdz_para
    4141    !Martin
    42     USE surface_data, ONLY : landice_opt
     42    USE surface_data, ONLY: landice_opt
    4343    USE phys_output_ctrlout_mod
    4444    USE mod_grid_phy_lmdz, only: klon_glo,nbp_lon,nbp_lat

  • LMDZ6/branches/Amaury_dev/libf/phylmd/phys_output_write_mod.F90

    r5099 r5101  
    44MODULE phys_output_write_mod
    55
    6   USE phytrac_mod, ONLY : d_tr_cl, d_tr_th, d_tr_cv, d_tr_lessi_impa, &
     6  USE phytrac_mod, ONLY: d_tr_cl, d_tr_th, d_tr_cv, d_tr_lessi_impa, &
    77       d_tr_lessi_nucl, d_tr_insc, d_tr_bcscav, d_tr_evapls, d_tr_ls,  &
    88       d_tr_trsp, d_tr_sscav, d_tr_sat, d_tr_uscav, flux_tr_dry
    … …  
    2828    USE strings_mod,  ONLY: maxlen
    2929    USE mod_phys_lmdz_para, ONLY: is_north_pole_phy,is_south_pole_phy
    30     USE mod_grid_phy_lmdz, ONLY : nbp_lon, nbp_lat
     30    USE mod_grid_phy_lmdz, ONLY: nbp_lon, nbp_lat
    3131    USE time_phylmdz_mod, ONLY: day_step_phy, start_time, itau_phy
    32     USE vertical_layers_mod, ONLY : ap, bp, aps, bps
     32    USE vertical_layers_mod, ONLY: ap, bp, aps, bps
    3333    USE phystokenc_mod, ONLY: offline
    3434    USE phys_output_ctrlout_mod, ONLY: o_phis, o_aire, is_ter, is_lic, is_oce, &
    … …  
    458458    USE lmdz_xios
    459459    USE wxios, ONLY: wxios_closedef, missing_val_xios=>missing_val, wxios_set_context
    460     USE phys_cal_mod, ONLY : mth_len
     460    USE phys_cal_mod, ONLY: mth_len
    461461
    462462#ifdef CPP_RRTM
    463     USE YOESW, ONLY : RSUN
     463    USE YOESW, ONLY: RSUN
    464464#endif
    465465    USE tracinca_mod, ONLY: config_inca

  • LMDZ6/branches/Amaury_dev/libf/phylmd/phys_state_var_mod.F90

    r5099 r5101  
    535535USE dimphy
    536536USE aero_mod
    537 USE infotrac_phy, ONLY : nbtr
     537USE infotrac_phy, ONLY: nbtr
    538538#ifdef ISO
    539 USE infotrac_phy, ONLY : ntraciso=>ntiso,niso
     539USE infotrac_phy, ONLY: ntraciso=>ntiso,niso
    540540#endif
    541541USE indice_sol_mod

  • LMDZ6/branches/Amaury_dev/libf/phylmd/physiq_mod.F90

    r5099 r5101  
    1919    ! PLEASE try to follow this rule
    2020
    21     USE ACAMA_GWD_rando_m, only : ACAMA_GWD_rando
     21    USE ACAMA_GWD_rando_m, ONLY: ACAMA_GWD_rando
    2222    USE aero_mod
    23     USE add_phys_tend_mod, only : add_pbl_tend, add_phys_tend, diag_phys_tend, prt_enerbil, &
     23    USE add_phys_tend_mod, ONLY: add_pbl_tend, add_phys_tend, diag_phys_tend, prt_enerbil, &
    2424            fl_ebil, fl_cor_ebil
    25     USE assert_m, only : assert
     25    USE assert_m, ONLY: assert
    2626    USE change_srf_frac_mod
    27     USE conf_phys_m, only : conf_phys
    28     USE carbon_cycle_mod, ONLY : infocfields_init, RCO2_glo, carbon_cycle_rad
     27    USE conf_phys_m, ONLY: conf_phys
     28    USE carbon_cycle_mod, ONLY: infocfields_init, RCO2_glo, carbon_cycle_rad
    2929    USE CFMIP_point_locations   ! IM stations CFMIP
    3030    USE cmp_seri_mod
    3131    USE dimphy
    3232    USE etat0_limit_unstruct_mod
    33     USE FLOTT_GWD_rando_m, only : FLOTT_GWD_rando
    34     USE fonte_neige_mod, ONLY : fonte_neige_get_vars
    35     USE geometry_mod, ONLY : cell_area, latitude_deg, longitude_deg
    36     USE ioipsl, only : histbeg, histvert, histdef, histend, histsync, &
     33    USE FLOTT_GWD_rando_m, ONLY: FLOTT_GWD_rando
     34    USE fonte_neige_mod, ONLY: fonte_neige_get_vars
     35    USE geometry_mod, ONLY: cell_area, latitude_deg, longitude_deg
     36    USE ioipsl, ONLY: histbeg, histvert, histdef, histend, histsync, &
    3737            histwrite, ju2ymds, ymds2ju, getin
    38     USE ioipsl_getin_p_mod, ONLY : getin_p
     38    USE ioipsl_getin_p_mod, ONLY: getin_p
    3939    USE indice_sol_mod
    40     USE infotrac_phy, ONLY : nqtot, nbtr, nqo, tracers, type_trac
    41     USE readTracFiles_mod, ONLY : addPhase
    42     USE strings_mod, ONLY : strIdx
     40    USE infotrac_phy, ONLY: nqtot, nbtr, nqo, tracers, type_trac
     41    USE readTracFiles_mod, ONLY: addPhase
     42    USE strings_mod, ONLY: strIdx
    4343    USE iophy
    44     USE limit_read_mod, ONLY : init_limit_read
    45     USE mod_grid_phy_lmdz, ONLY : nbp_lon, nbp_lat, nbp_lev, klon_glo, grid1dTo2d_glo, grid_type, unstructured
    46     USE mod_phys_lmdz_mpi_data, only : is_mpi_root
     44    USE limit_read_mod, ONLY: init_limit_read
     45    USE mod_grid_phy_lmdz, ONLY: nbp_lon, nbp_lat, nbp_lev, klon_glo, grid1dTo2d_glo, grid_type, unstructured
     46    USE mod_phys_lmdz_mpi_data, ONLY: is_mpi_root
    4747    USE mod_phys_lmdz_para
    48     USE netcdf95, only : nf95_close
    49     USE netcdf, only : nf90_fill_real     ! IM for NMC files
    50     USE open_climoz_m, only : open_climoz ! ozone climatology from a file
    51     USE ozonecm_m, only : ozonecm ! ozone of J.-F. Royer
    52     USE pbl_surface_mod, ONLY : pbl_surface
    53     USE phyaqua_mod, only : zenang_an
    54     USE phyetat0_mod, only : phyetat0
    55     USE phystokenc_mod, ONLY : offline, phystokenc
    56     USE phys_cal_mod, only : year_len, mth_len, days_elapsed, jh_1jan, &
     48    USE netcdf95, ONLY: nf95_close
     49    USE netcdf, ONLY: nf90_fill_real     ! IM for NMC files
     50    USE open_climoz_m, ONLY: open_climoz ! ozone climatology from a file
     51    USE ozonecm_m, ONLY: ozonecm ! ozone of J.-F. Royer
     52    USE pbl_surface_mod, ONLY: pbl_surface
     53    USE phyaqua_mod, ONLY: zenang_an
     54    USE phyetat0_mod, ONLY: phyetat0
     55    USE phystokenc_mod, ONLY: offline, phystokenc
     56    USE phys_cal_mod, ONLY: year_len, mth_len, days_elapsed, jh_1jan, &
    5757            year_cur, mth_cur, jD_cur, jH_cur, jD_ref, day_cur, hour, calend
    58     !!  USE phys_local_var_mod, ONLY : a long list of variables
     58    !!  USE phys_local_var_mod, ONLY: a long list of variables
    5959    !!              ==> see below, after "CPP Keys" section
    6060    USE phys_state_var_mod ! Variables sauvegardees de la physique
    6161    USE phys_output_mod
    6262    USE phys_output_ctrlout_mod
    63     USE print_control_mod, ONLY : mydebug => debug, lunout, prt_level, &
     63    USE print_control_mod, ONLY: mydebug => debug, lunout, prt_level, &
    6464            alert_first_call, call_alert, prt_alerte
    65     USE readaerosol_mod, ONLY : init_aero_fromfile
    66     USE readaerosolstrato_m, ONLY : init_readaerosolstrato
    67     USE radlwsw_m, only : radlwsw
    68     USE regr_horiz_time_climoz_m, ONLY : regr_horiz_time_climoz
    69     USE regr_pr_time_av_m, only : regr_pr_time_av
    70     USE surface_data, ONLY : type_ocean, ok_veget
    71     USE time_phylmdz_mod, only : current_time, itau_phy, pdtphys, raz_date, update_time
    72     USE tracinca_mod, ONLY : config_inca
    73     USE tropopause_m, ONLY : dyn_tropopause
    74     USE ice_sursat_mod, ONLY : flight_init, airplane
     65    USE readaerosol_mod, ONLY: init_aero_fromfile
     66    USE readaerosolstrato_m, ONLY: init_readaerosolstrato
     67    USE radlwsw_m, ONLY: radlwsw
     68    USE regr_horiz_time_climoz_m, ONLY: regr_horiz_time_climoz
     69    USE regr_pr_time_av_m, ONLY: regr_pr_time_av
     70    USE surface_data, ONLY: type_ocean, ok_veget
     71    USE time_phylmdz_mod, ONLY: current_time, itau_phy, pdtphys, raz_date, update_time
     72    USE tracinca_mod, ONLY: config_inca
     73    USE tropopause_m, ONLY: dyn_tropopause
     74    USE ice_sursat_mod, ONLY: flight_init, airplane
    7575    USE vampir
    7676    USE write_field_phy
    77     USE wxios, ONLY : g_ctx, wxios_set_context
    78     USE lmdz_lscp, ONLY : lscp
    79     USE lmdz_call_cloud_optics_prop, ONLY : call_cloud_optics_prop
    80     USE lmdz_lscp_old, ONLY : fisrtilp
    81     USE lmdz_call_blowing_snow, ONLY : call_blowing_snow_sublim_sedim
    82     USE lmdz_wake_ini, ONLY : wake_ini
    83     USE yamada_ini_mod, ONLY : yamada_ini
    84     USE lmdz_atke_turbulence_ini, ONLY : atke_ini
    85     USE lmdz_thermcell_ini, ONLY : thermcell_ini, iflag_thermals_tenv
    86     USE lmdz_thermcell_dtke, ONLY : thermcell_dtke
    87     USE lmdz_blowing_snow_ini, ONLY : blowing_snow_ini, qbst_bs
    88     USE lmdz_lscp_ini, ONLY : lscp_ini
    89     USE lmdz_ratqs_main, ONLY : ratqs_main
    90     USE lmdz_ratqs_ini, ONLY : ratqs_ini
    91     USE lmdz_cloud_optics_prop_ini, ONLY : cloud_optics_prop_ini
    92     USE phys_output_var_mod, ONLY : cloudth_sth, cloudth_senv, cloudth_sigmath, cloudth_sigmaenv
    93     USE phys_output_var_mod, ONLY : cloud_cover_sw, cloud_cover_sw_s2
    94 
    95     USE geometry_mod, ONLY : longitude, latitude, boundslon, boundslat, ind_cell_glo
    96     USE time_phylmdz_mod, ONLY : ndays
    97     USE infotrac_phy, ONLY : nqCO2
    98 
    99     USE time_phylmdz_mod, ONLY : annee_ref, day_ini, day_ref, start_time
    100     USE vertical_layers_mod, ONLY : aps, bps, ap, bp
    101 
    102     USE lmdz_xios, ONLY : xios_update_calendar, xios_context_finalize, xios_get_field_attr, &
     77    USE wxios, ONLY: g_ctx, wxios_set_context
     78    USE lmdz_lscp, ONLY: lscp
     79    USE lmdz_call_cloud_optics_prop, ONLY: call_cloud_optics_prop
     80    USE lmdz_lscp_old, ONLY: fisrtilp
     81    USE lmdz_call_blowing_snow, ONLY: call_blowing_snow_sublim_sedim
     82    USE lmdz_wake_ini, ONLY: wake_ini
     83    USE yamada_ini_mod, ONLY: yamada_ini
     84    USE lmdz_atke_turbulence_ini, ONLY: atke_ini
     85    USE lmdz_thermcell_ini, ONLY: thermcell_ini, iflag_thermals_tenv
     86    USE lmdz_thermcell_dtke, ONLY: thermcell_dtke
     87    USE lmdz_blowing_snow_ini, ONLY: blowing_snow_ini, qbst_bs
     88    USE lmdz_lscp_ini, ONLY: lscp_ini
     89    USE lmdz_ratqs_main, ONLY: ratqs_main
     90    USE lmdz_ratqs_ini, ONLY: ratqs_ini
     91    USE lmdz_cloud_optics_prop_ini, ONLY: cloud_optics_prop_ini
     92    USE phys_output_var_mod, ONLY: cloudth_sth, cloudth_senv, cloudth_sigmath, cloudth_sigmaenv
     93    USE phys_output_var_mod, ONLY: cloud_cover_sw, cloud_cover_sw_s2
     94
     95    USE geometry_mod, ONLY: longitude, latitude, boundslon, boundslat, ind_cell_glo
     96    USE time_phylmdz_mod, ONLY: ndays
     97    USE infotrac_phy, ONLY: nqCO2
     98
     99    USE time_phylmdz_mod, ONLY: annee_ref, day_ini, day_ref, start_time
     100    USE vertical_layers_mod, ONLY: aps, bps, ap, bp
     101
     102    USE lmdz_xios, ONLY: xios_update_calendar, xios_context_finalize, xios_get_field_attr, &
    103103            xios_field_is_active, xios_context, xios_set_current_context
    104     USE wxios, ONLY : missing_val, using_xios
     104    USE wxios, ONLY: missing_val, using_xios
    105105    USE paramLMDZ_phy_mod
    106106
    107     USE phytracr_spl_mod, ONLY : phytracr_spl, phytracr_spl_out_init
     107    USE phytracr_spl_mod, ONLY: phytracr_spl, phytracr_spl_out_init
    108108    USE phys_output_write_spl_mod
    109     USE phytrac_mod, ONLY : phytrac_init, phytrac
     109    USE phytrac_mod, ONLY: phytrac_init, phytrac
    110110    USE phys_output_write_mod
    111111
    112     USE lmdz_cppkeys_wrapper, ONLY : CPPKEY_DUST
     112    USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_DUST
    113113
    114114    !!!!!!!!!!!!!!!!!! "USE" section for CPP keys !!!!!!!!!!!!!!!!!!!!!!!!
    … …  
    123123
    124124#ifdef CPP_RRTM
    125     USE YOERAD, ONLY : NRADLP
     125    USE YOERAD, ONLY: NRADLP
    126126#endif
    127127
    128     USE phys_local_var_mod, ONLY : d_q_emiss
     128    USE phys_local_var_mod, ONLY: d_q_emiss
    129129    USE strataer_local_var_mod
    130     USE strataer_nuc_mod, ONLY : strataer_nuc_init
    131     USE strataer_emiss_mod, ONLY : strataer_emiss_init
    132     USE lmdz_cppkeys_wrapper, ONLY : CPPKEY_STRATAER
     130    USE strataer_nuc_mod, ONLY: strataer_nuc_init
     131    USE strataer_emiss_mod, ONLY: strataer_emiss_init
     132    USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_STRATAER
    133133
    134134
    135135    !!!!!!!!!!!!!!!!!!  END "USE" for CPP keys !!!!!!!!!!!!!!!!!!!!!!
    136136
    137     USE physiqex_mod, ONLY : physiqex
    138     USE phys_local_var_mod, ONLY : phys_local_var_init, phys_local_var_end, &
     137    USE physiqex_mod, ONLY: physiqex
     138    USE phys_local_var_mod, ONLY: phys_local_var_init, phys_local_var_end, &
    139139            ! [Variables internes non sauvegardees de la physique]
    140140            ! Variables locales pour effectuer les appels en serie
    … …  
    345345            zxfluxt, zxfluxq
    346346
    347     USE phys_local_var_mod, ONLY : zfice, dNovrN, ptconv
    348     USE phys_output_var_mod, ONLY : scdnc, cldncl, reffclwtop, lcc, reffclws, &
     347    USE phys_local_var_mod, ONLY: zfice, dNovrN, ptconv
     348    USE phys_output_var_mod, ONLY: scdnc, cldncl, reffclwtop, lcc, reffclws, &
    349349            reffclwc, cldnvi, lcc3d, lcc3dcon, lcc3dstra, icc3dcon, icc3dstra
    350     USE output_physiqex_mod, ONLY : output_physiqex
    351     USE lmdz_cppkeys_wrapper, ONLY : CPPKEY_INCA
     350    USE output_physiqex_mod, ONLY: output_physiqex
     351    USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_INCA
    352352
    353353    IMPLICIT NONE

  • LMDZ6/branches/Amaury_dev/libf/phylmd/physiqex_mod.F90

    r5099 r5101  
    1313              d_u, d_v, d_t, d_qx, d_ps)
    1414
    15       USE dimphy, only : klon,klev
    16       USE infotrac_phy, only : nqtot
    17       USE geometry_mod, only : latitude
    18 !      USE comcstphy, only : rg
    19       USE ioipsl, only : ymds2ju
    20       USE phys_state_var_mod, only : phys_state_var_init
     15      USE dimphy, ONLY: klon,klev
     16      USE infotrac_phy, ONLY: nqtot
     17      USE geometry_mod, ONLY: latitude
     18!      USE comcstphy, ONLY: rg
     19      USE ioipsl, ONLY: ymds2ju
     20      USE phys_state_var_mod, ONLY: phys_state_var_init
    2121      USE phyetat0_mod, only: phyetat0
    2222      USE output_physiqex_mod, ONLY: output_physiqex

  • LMDZ6/branches/Amaury_dev/libf/phylmd/phystokenc_mod.F90

    r5099 r5101  
    3434  USE ioipsl
    3535  USE dimphy
    36   USE infotrac_phy, ONLY : nqtot
     36  USE infotrac_phy, ONLY: nqtot
    3737  USE iophy
    3838  USE indice_sol_mod

  • LMDZ6/branches/Amaury_dev/libf/phylmd/phytrac_mod.F90

    r5099 r5101  
    5555
    5656    USE dimphy
    57     USE infotrac_phy, ONLY : nbtr, type_trac
    58     USE tracco2i_mod, ONLY : tracco2i_init
     57    USE infotrac_phy, ONLY: nbtr, type_trac
     58    USE tracco2i_mod, ONLY: tracco2i_init
    5959
    6060    IMPLICIT NONE
    … …  
    120120
    121121    USE ioipsl
    122     USE phys_cal_mod, only : hour
     122    USE phys_cal_mod, ONLY: hour
    123123    USE dimphy
    124     USE infotrac_phy, ONLY : nbtr, nqCO2, type_trac, conv_flg, pbl_flg
    125     USE strings_mod, ONLY : int2str
     124    USE infotrac_phy, ONLY: nbtr, nqCO2, type_trac, conv_flg, pbl_flg
     125    USE strings_mod, ONLY: int2str
    126126    USE mod_grid_phy_lmdz
    127127    USE mod_phys_lmdz_para
    … …  
    131131    USE tracreprobus_mod
    132132    USE indice_sol_mod
    133     USE mod_phys_lmdz_mpi_data, ONLY : is_mpi_root
    134     USE print_control_mod, ONLY : lunout
    135     USE aero_mod, ONLY : naero_grp
    136     USE lmdz_thermcell_dq, ONLY : thermcell_dq
     133    USE mod_phys_lmdz_mpi_data, ONLY: is_mpi_root
     134    USE print_control_mod, ONLY: lunout
     135    USE aero_mod, ONLY: naero_grp
     136    USE lmdz_thermcell_dq, ONLY: thermcell_dq
    137137
    138138    USE tracco2i_mod
    139139
    140140    USE traccoag_mod
    141     USE phys_local_var_mod, ONLY : mdw
    142     USE phys_local_var_mod, ONLY : budg_dep_dry_ocs, budg_dep_wet_ocs
    143     USE phys_local_var_mod, ONLY : budg_dep_dry_so2, budg_dep_wet_so2
    144     USE phys_local_var_mod, ONLY : budg_dep_dry_h2so4, budg_dep_wet_h2so4
    145     USE phys_local_var_mod, ONLY : budg_dep_dry_part, budg_dep_wet_part
    146     USE infotrac_phy, ONLY : nbtr_sulgas, id_OCS_strat, id_SO2_strat, id_H2SO4_strat
    147     USE strataer_nuc_mod, ONLY : tracstrataer_init
     141    USE phys_local_var_mod, ONLY: mdw
     142    USE phys_local_var_mod, ONLY: budg_dep_dry_ocs, budg_dep_wet_ocs
     143    USE phys_local_var_mod, ONLY: budg_dep_dry_so2, budg_dep_wet_so2
     144    USE phys_local_var_mod, ONLY: budg_dep_dry_h2so4, budg_dep_wet_h2so4
     145    USE phys_local_var_mod, ONLY: budg_dep_dry_part, budg_dep_wet_part
     146    USE infotrac_phy, ONLY: nbtr_sulgas, id_OCS_strat, id_SO2_strat, id_H2SO4_strat
     147    USE strataer_nuc_mod, ONLY: tracstrataer_init
    148148    USE aerophys
    149     USE lmdz_cppkeys_wrapper, ONLY : CPPKEY_STRATAER
     149    USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_STRATAER
    150150    USE lmdz_yomcst
    151151

  • LMDZ6/branches/Amaury_dev/libf/phylmd/pppmer.F90

    r2386 r5101  
    5353
    5454! USE PARKIND1
    55 !<http://intra.cnrm.meteo.fr/eac/ARPCLI5.2/doci/code/arpcli5.2/xrd/module/parkind1.F90.php#parkind1>  ,ONLY : JPIM     ,JPRB
     55!<http://intra.cnrm.meteo.fr/eac/ARPCLI5.2/doci/code/arpcli5.2/xrd/module/parkind1.F90.php#parkind1>  ,ONLY: JPIM     ,JPRB
    5656! USE YOMHOOK
    57 !<http://intra.cnrm.meteo.fr/eac/ARPCLI5.2/doci/code/arpcli5.2/xrd/module/yomhook.F90.php#yomhook>   ,ONLY : LHOOK,   DR_HOOK
     57!<http://intra.cnrm.meteo.fr/eac/ARPCLI5.2/doci/code/arpcli5.2/xrd/module/yomhook.F90.php#yomhook>   ,ONLY: LHOOK,   DR_HOOK
    5858
    59 !USE YOMCST, ONLY : RG, RD
    60 !<http://intra.cnrm.meteo.fr/eac/ARPCLI5.2/doci/code/arpcli5.2/arp/module/yomcst.F90.php#yomcst>   , ONLY : RG
     59!USE YOMCST, ONLY: RG, RD
     60!<http://intra.cnrm.meteo.fr/eac/ARPCLI5.2/doci/code/arpcli5.2/arp/module/yomcst.F90.php#yomcst>   , ONLY: RG
    6161
    6262!<http://intra.cnrm.meteo.fr/eac/ARPCLI5.2/doci/code/arpcli5.2/xrd/support/rg.F.php#rg>       ,RD
    6363! USE YOMSTA
    64 !<http://intra.cnrm.meteo.fr/eac/ARPCLI5.2/doci/code/arpcli5.2/arp/module/yomsta.F90.php#yomsta>   , ONLY : RDTDZ1
     64!<http://intra.cnrm.meteo.fr/eac/ARPCLI5.2/doci/code/arpcli5.2/arp/module/yomsta.F90.php#yomsta>   , ONLY: RDTDZ1
    6565
    6666  IMPLICIT NONE

  • LMDZ6/branches/Amaury_dev/libf/phylmd/qsat_seawater2.F90

    r5099 r5101  
    4949!              ------------
    5050
    51 USE MODD_CSTS, ONLY : XRD, XRV
     51USE MODD_CSTS, ONLY: XRD, XRV
    5252USE dimphy
    5353USE indice_sol_mod

  • LMDZ6/branches/Amaury_dev/libf/phylmd/radio_decay.F90

    r5099 r5101  
    77
    88  USE dimphy
    9   USE infotrac_phy, ONLY : nbtr
    10   USE traclmdz_mod, ONLY : id_rn, id_pb
     9  USE infotrac_phy, ONLY: nbtr
     10  USE traclmdz_mod, ONLY: id_rn, id_pb
    1111  IMPLICIT NONE
    1212!-----------------------------------------------------------------------

  • LMDZ6/branches/Amaury_dev/libf/phylmd/radlwsw_m.F90

    r5099 r5101  
    4949    ! Modules necessaires
    5050    USE DIMPHY
    51     USE assert_m, ONLY : assert
    52     USE infotrac_phy, ONLY : type_trac
     51    USE assert_m, ONLY: assert
     52    USE infotrac_phy, ONLY: type_trac
    5353    USE write_field_phy
    5454
    5555#ifdef REPROBUS
    56     USE CHEM_REP, ONLY : solaireTIME, ok_SUNTIME, ndimozon
     56    USE CHEM_REP, ONLY: solaireTIME, ok_SUNTIME, ndimozon
    5757#endif
    5858
    … …  
    6060    !    modules necessaires au rayonnement
    6161    !    -----------------------------------------
    62     USE YOERAD   , ONLY : NLW, LRRTM    ,LCCNL    ,LCCNO ,&
     62    USE YOERAD   , ONLY: NLW, LRRTM    ,LCCNL    ,LCCNO ,&
    6363         NRADIP   , NRADLP , NICEOPT, NLIQOPT ,RCCNLND  , RCCNSEA
    64     USE YOELW    , ONLY : NSIL     ,NTRA     ,NUA      ,TSTAND   ,XP
    65     USE YOESW    , ONLY : RYFWCA   ,RYFWCB   ,RYFWCC   ,RYFWCD,&   
     64    USE YOELW    , ONLY: NSIL     ,NTRA     ,NUA      ,TSTAND   ,XP
     65    USE YOESW    , ONLY: RYFWCA   ,RYFWCB   ,RYFWCC   ,RYFWCD,&
    6666         RYFWCE   ,RYFWCF   ,REBCUA   ,REBCUB   ,REBCUC,&   
    6767         REBCUD   ,REBCUE   ,REBCUF   ,REBCUI   ,REBCUJ,& 
    … …  
    7171         RFLDD1   ,RFLDD2   ,RFLDD3   ,RFUETA   ,RASWCA,&
    7272         RASWCB   ,RASWCC   ,RASWCD   ,RASWCE   ,RASWCF
    73     USE YOERDU   , ONLY : NUAER  ,NTRAER ,REPLOG ,REPSC  ,REPSCW ,DIFF
    74     USE YOERRTWN , ONLY : DELWAVE   ,TOTPLNK     
    75     USE YOMPHY3  , ONLY : RII0
     73    USE YOERDU   , ONLY: NUAER  ,NTRAER ,REPLOG ,REPSC  ,REPSCW ,DIFF
     74    USE YOERRTWN , ONLY: DELWAVE   ,TOTPLNK
     75    USE YOMPHY3  , ONLY: RII0
    7676#endif
    7777    USE aero_mod

  • LMDZ6/branches/Amaury_dev/libf/phylmd/read_map2D.F90

    r5100 r5101  
    3333     IF (ierr /= nf90_noerr) CALL write_err_mess('Problem in opening file')
    3434
    35      ierr = NF90_INQ_VARID(nid, trim(varname), nvarid)
     35     ierr = nf90_inq_varid(nid, trim(varname), nvarid)
    3636     IF (ierr /= nf90_noerr) CALL write_err_mess('The variable is absent in file')
    3737     

  • LMDZ6/branches/Amaury_dev/libf/phylmd/readaerosol_interp.F90

    r5099 r5101  
    1414
    1515  USE ioipsl
    16   USE dimphy, ONLY : klev,klon
    17   USE mod_phys_lmdz_para, ONLY : mpi_rank 
     16  USE dimphy, ONLY: klev,klon
     17  USE mod_phys_lmdz_para, ONLY: mpi_rank
    1818  USE readaerosol_mod
    19   USE aero_mod, ONLY : naero_spc, name_aero
     19  USE aero_mod, ONLY: naero_spc, name_aero
    2020  USE write_field_phy
    2121  USE phys_cal_mod

  • LMDZ6/branches/Amaury_dev/libf/phylmd/readaerosol_mod.F90

    r5100 r5101  
    271271                                 grid2Dto1D_glo, grid_type, unstructured
    272272    USE mod_phys_lmdz_para
    273     USE iophy, ONLY : io_lon, io_lat
     273    USE iophy, ONLY: io_lon, io_lat
    274274    USE print_control_mod, ONLY: lunout
    275275    USE lmdz_xios

  • LMDZ6/branches/Amaury_dev/libf/phylmd/readaerosolstrato.F90

    r5099 r5101  
    55    use netcdf, only: nf90_get_var, nf90_noerr, nf90_nowrite
    66
    7     USE phys_cal_mod, ONLY : mth_cur
     7    USE phys_cal_mod, ONLY: mth_cur
    88    USE mod_grid_phy_lmdz, ONLY: nbp_lon, nbp_lat, klon_glo, &
    99                                 grid2dto1d_glo, grid_type, unstructured
    10     USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root
    11     USE mod_phys_lmdz_omp_data, ONLY :  is_omp_root
     10    USE mod_phys_lmdz_mpi_data, ONLY:  is_mpi_root
     11    USE mod_phys_lmdz_omp_data, ONLY:  is_omp_root
    1212    USE mod_phys_lmdz_para
    1313    USE phys_state_var_mod

  • LMDZ6/branches/Amaury_dev/libf/phylmd/readaerosolstrato_m.F90

    r5088 r5101  
    2929  USE mod_phys_lmdz_para
    3030  USE lmdz_xios
    31 !  USE YOERAD, ONLY : NLW
     31!  USE YOERAD, ONLY: NLW
    3232  IMPLICIT NONE
    3333  REAL, allocatable:: latitude(:)
    … …  
    7272  USE mod_phys_lmdz_para
    7373  USE lmdz_xios
    74 !  USE YOERAD, ONLY : NLW
     74!  USE YOERAD, ONLY: NLW
    7575  IMPLICIT NONE
    7676  REAL, allocatable:: latitude(:)

  • LMDZ6/branches/Amaury_dev/libf/phylmd/reevap.F90

    r5099 r5101  
    33
    44    ! flag to include modifications to ensure energy conservation (if flag >0)
    5     USE add_phys_tend_mod, only : fl_cor_ebil
     5    USE add_phys_tend_mod, ONLY: fl_cor_ebil
    66   
    77    IMPLICIT none

  • LMDZ6/branches/Amaury_dev/libf/phylmd/regr_horiz_time_climoz_m.F90

    r5100 r5101  
    11MODULE regr_horiz_time_climoz_m
    22
    3   USE interpolation, ONLY : locate
    4   USE mod_grid_phy_lmdz, ONLY : nbp_lon, nbp_lat, grid_type, unstructured
    5   USE nrtype, ONLY : pi
    6   USE netcdf, ONLY : nf90_clobber, nf90_float, nf90_open, &
     3  USE interpolation, ONLY: locate
     4  USE mod_grid_phy_lmdz, ONLY: nbp_lon, nbp_lat, grid_type, unstructured
     5  USE nrtype, ONLY: pi
     6  USE netcdf, ONLY: nf90_clobber, nf90_float, nf90_open, &
    77          nf90_nowrite, nf90_noerr, nf90_get_att, nf90_global
    8   USE netcdf95, ONLY : nf95_def_dim, nf95_inq_dimid, nf95_inquire_dimension, &
    9           nf95_def_var, nf95_inq_varid, NF95_INQUIRE_VARIABLE, &
    10           NF95_OPEN, NF95_CREATE, NF95_GET_ATT, NF95_GW_VAR, nf95_get_var, &
    11           NF95_CLOSE, NF95_ENDDEF, NF95_PUT_ATT, NF95_PUT_VAR, NF95_COPY_ATT
    12   USE print_control_mod, ONLY : lunout
     8  USE netcdf95, ONLY: nf95_def_dim, nf95_inq_dimid, nf95_inquire_dimension, &
     9          nf95_def_var, nf95_inq_varid, nf95_inquire_variable, &
     10          nf95_open, nf95_create, nf95_get_att, nf95_gw_var, nf95_get_var, &
     11          nf95_close, nf95_enddef, nf95_put_att, nf95_put_var, nf95_copy_att
     12  USE print_control_mod, ONLY: lunout
    1313  USE dimphy
    1414  IMPLICIT NONE
    … …  
    5757    !     Attribute "missing_value" or "_FillValue" must be present in input file.
    5858    !-------------------------------------------------------------------------------
    59     USE assert_m, ONLY : assert
    60     USE cal_tools_m, ONLY : year_len, mid_month
     59    USE assert_m, ONLY: assert
     60    USE cal_tools_m, ONLY: year_len, mid_month
    6161    !!  USE control_mod,        ONLY: anneeref
    62     USE time_phylmdz_mod, ONLY : annee_ref
    63     USE ioipsl, ONLY : ioget_year_len, ioget_calendar
    64     USE regr_conserv_m, ONLY : regr_conserv
    65     USE regr_lint_m, ONLY : regr_lint
    66     USE regular_lonlat_mod, ONLY : boundslon_reg, boundslat_reg, south, west, east
    67     USE slopes_m, ONLY : slopes
     62    USE time_phylmdz_mod, ONLY: annee_ref
     63    USE ioipsl, ONLY: ioget_year_len, ioget_calendar
     64    USE regr_conserv_m, ONLY: regr_conserv
     65    USE regr_lint_m, ONLY: regr_lint
     66    USE regular_lonlat_mod, ONLY: boundslon_reg, boundslat_reg, south, west, east
     67    USE slopes_m, ONLY: slopes
    6868    USE lmdz_xios
    69     USE mod_phys_lmdz_para, ONLY : is_mpi_root, is_master, is_omp_master, gather, gather_mpi, bcast_mpi, klon_mpi
    70     USE geometry_mod, ONLY : latitude_deg, ind_cell_glo
    71     USE mod_grid_phy_lmdz, ONLY : klon_glo
     69    USE mod_phys_lmdz_para, ONLY: is_mpi_root, is_master, is_omp_master, gather, gather_mpi, bcast_mpi, klon_mpi
     70    USE geometry_mod, ONLY: latitude_deg, ind_cell_glo
     71    USE mod_grid_phy_lmdz, ONLY: klon_glo
    7272
    7373    !-------------------------------------------------------------------------------
    … …  
    164164        CALL assert(read_climoz == 1 .OR. read_climoz == 2, "regr_lat_time_climoz")
    165165
    166         CALL  NF95_OPEN("climoz.nc", nf90_nowrite, fID_in)
     166        CALL  nf95_open("climoz.nc", nf90_nowrite, fID_in)
    167167        lprev = nf90_open("climoz_m.nc", nf90_nowrite, fID_in_m)==nf90_noerr
    168168        lnext = nf90_open("climoz_p.nc", nf90_nowrite, fID_in_p)==nf90_noerr
    … …  
    171171        !    Few inversions because "regr_conserv" and gcm need ascending vectors.
    172172        CALL nf95_inq_varid(fID_in, vars_in(1), varid)
    173         CALL NF95_INQUIRE_VARIABLE(fID_in, varid, dimids = dIDs, ndims = ndims)
     173        CALL nf95_inquire_variable(fID_in, varid, dimids = dIDs, ndims = ndims)
    174174        l3D = ndims==4; l2D = ndims==3
    175175        IF(l3D) WRITE(lunout, *)"Input files contain full 3D ozone fields."
    … …  
    181181          SELECT CASE(ii)
    182182          CASE(1)                                         !--- LONGITUDE
    183             CALL NF95_GW_VAR(fID_in, varid, lon_in)
     183            CALL nf95_gw_var(fID_in, varid, lon_in)
    184184            ldec_lon = lon_in(1)>lon_in(dln); IF(ldec_lon) lon_in = lon_in(dln:1:-1)
    185185            nlon_in = dln; lon_in = lon_in * deg2rad
    186186          CASE(2)                                         !--- LATITUDE
    187             CALL NF95_GW_VAR(fID_in, varid, lat_in)
     187            CALL nf95_gw_var(fID_in, varid, lat_in)
    188188            ldec_lat = lat_in(1)>lat_in(dln); IF(ldec_lat) lat_in = lat_in(dln:1:-1)
    189189            nlat_in = dln; lat_in = lat_in * deg2rad
    190190          CASE(3)                                         !--- PRESSURE LEVELS
    191             CALL NF95_GW_VAR(fID_in, varid, lev_in)
     191            CALL nf95_gw_var(fID_in, varid, lev_in)
    192192            ldec_lev = lev_in(1)>lev_in(dln); IF(ldec_lev) lev_in = lev_in(dln:1:-1)
    193193            nlev_in = dln
    194             CALL NF95_GET_ATT(fID_in, varid, "units", press_unit)
     194            CALL nf95_get_att(fID_in, varid, "units", press_unit)
    195195            k = LEN_TRIM(press_unit)
    196196            DO WHILE(ICHAR(press_unit(k:k))==0)
    … …  
    329329        DO iv = 1, read_climoz
    330330          CALL nf95_inq_varid(fID_in, vars_in(1), vID_in(iv))
    331           IF(l3D) call NF95_GET_VAR(fID_in, vID_in(iv), o3_in3(1:nlon_in, :, :, 1:12, iv))
    332           IF(l2D) call NF95_GET_VAR(fID_in, vID_in(iv), o3_in2(:, :, 1:12, iv))
     331          IF(l3D) call nf95_get_var(fID_in, vID_in(iv), o3_in3(1:nlon_in, :, :, 1:12, iv))
     332          IF(l2D) call nf95_get_var(fID_in, vID_in(iv), o3_in2(:, :, 1:12, iv))
    333333          IF(lprev) THEN; sta(ndims) = 12
    334334          CALL nf95_inq_varid(fID_in_m, vars_in(1), vID_in(iv))
    335           IF(l3D) call NF95_GET_VAR(fID_in_m, vID_in(iv), o3_in3(1:nlon_in, :, :, 0, iv), sta, cnt)
    336           IF(l2d) call NF95_GET_VAR(fID_in_m, vID_in(iv), o3_in2(:, :, 0, iv), sta, cnt)
     335          IF(l3D) call nf95_get_var(fID_in_m, vID_in(iv), o3_in3(1:nlon_in, :, :, 0, iv), sta, cnt)
     336          IF(l2d) call nf95_get_var(fID_in_m, vID_in(iv), o3_in2(:, :, 0, iv), sta, cnt)
    337337          END IF
    338338          IF(lnext) THEN; sta(ndims) = 1
    339339          CALL nf95_inq_varid(fID_in_p, vars_in(1), vID_in(iv))
    340           IF(l3D) call NF95_GET_VAR(fID_in_p, vID_in(iv), o3_in3(1:nlon_in, :, :, 13, iv), sta, cnt)
    341           IF(l2D) call NF95_GET_VAR(fID_in_p, vID_in(iv), o3_in2(:, :, 13, iv), sta, cnt)
     340          IF(l3D) call nf95_get_var(fID_in_p, vID_in(iv), o3_in3(1:nlon_in, :, :, 13, iv), sta, cnt)
     341          IF(l2D) call nf95_get_var(fID_in_p, vID_in(iv), o3_in2(:, :, 13, iv), sta, cnt)
    342342          END IF
    343343        END DO
    344344        IF(lprev.OR.lnext) DEALLOCATE(sta, cnt)
    345         IF(lprev) CALL NF95_CLOSE(fID_in_m)
    346         IF(lnext) CALL NF95_CLOSE(fID_in_p)
     345        IF(lprev) CALL nf95_close(fID_in_m)
     346        IF(lnext) CALL nf95_close(fID_in_p)
    347347
    348348        !--- Revert decreasing coordinates vector
    … …  
    469469        IF (is_mpi_root) THEN
    470470          !--- Write remaining coordinate variables:
    471           CALL NF95_PUT_VAR(fID_ou, levID_ou, lev_in); DEALLOCATE(lev_in)
    472           IF(interpt) CALL NF95_PUT_VAR(fID_ou, timID_ou, tmidday)
    473           IF(.NOT.interpt) CALL NF95_PUT_VAR(fID_ou, timID_ou, tmidmonth)
     471          CALL nf95_put_var(fID_ou, levID_ou, lev_in); DEALLOCATE(lev_in)
     472          IF(interpt) CALL nf95_put_var(fID_ou, timID_ou, tmidday)
     473          IF(.NOT.interpt) CALL nf95_put_var(fID_ou, timID_ou, tmidmonth)
    474474
    475475          !--- Write to file (the order of "rlatu" is inverted in the output file):
    … …  
    482482
    483483            DO m = 1, read_climoz
    484               CALL NF95_PUT_VAR(fID_ou, vID_ou(m), o3_out(nlat_ou:1:-1, :, :, m))
     484              CALL nf95_put_var(fID_ou, vID_ou(m), o3_out(nlat_ou:1:-1, :, :, m))
    485485            END DO
    486486
    487487          ELSE
    488488            DO m = 1, read_climoz
    489               CALL NF95_PUT_VAR(fID_ou, vID_ou(m), o3_out3(:, nlat_ou:1:-1, :, :, m))
     489              CALL nf95_put_var(fID_ou, vID_ou(m), o3_out3(:, nlat_ou:1:-1, :, :, m))
    490490            END DO
    491491          ENDIF
    492           CALL NF95_CLOSE(fID_ou)
     492          CALL nf95_close(fID_ou)
    493493
    494494        ENDIF
    … …  
    552552
    553553          !--- Write remaining coordinate variables:
    554           CALL NF95_PUT_VAR(fID_ou, levID_ou, lev_in); DEALLOCATE(lev_in)
    555           IF(interpt) CALL NF95_PUT_VAR(fID_ou, timID_ou, tmidday)
    556           IF(.NOT.interpt) CALL NF95_PUT_VAR(fID_ou, timID_ou, tmidmonth)
     554          CALL nf95_put_var(fID_ou, levID_ou, lev_in); DEALLOCATE(lev_in)
     555          IF(interpt) CALL nf95_put_var(fID_ou, timID_ou, tmidday)
     556          IF(.NOT.interpt) CALL nf95_put_var(fID_ou, timID_ou, tmidmonth)
    557557
    558558          IF (grid_type==unstructured) THEN
    … …  
    564564
    565565            DO m = 1, read_climoz
    566               CALL NF95_PUT_VAR(fID_ou, vID_ou(m), o3_out(nlat_ou:1:-1, :, :, m))
     566              CALL nf95_put_var(fID_ou, vID_ou(m), o3_out(nlat_ou:1:-1, :, :, m))
    567567            END DO
    568568          ELSE
    569569            !--- Write to file (the order of "rlatu" is inverted in the output file):
    570570            DO m = 1, read_climoz
    571               CALL NF95_PUT_VAR(fID_ou, vID_ou(m), o3_out2(nlat_ou:1:-1, :, :, m))
     571              CALL nf95_put_var(fID_ou, vID_ou(m), o3_out2(nlat_ou:1:-1, :, :, m))
    572572            END DO
    573573          ENDIF
    574574
    575           CALL NF95_CLOSE(fID_ou)
     575          CALL nf95_close(fID_ou)
    576576
    577577        ENDIF
    … …  
    581581      !=============================================================================
    582582
    583       IF (is_mpi_root) CALL NF95_CLOSE(fID_in)
     583      IF (is_mpi_root) CALL nf95_close(fID_in)
    584584
    585585    ENDIF ! is_omp_master
    … …  
    599599    !     dimensions and variables, and writes some of the coordinate variables.
    600600    !-------------------------------------------------------------------------------
    601     USE regular_lonlat_mod, ONLY : lon_reg, lat_reg
    602     USE regular_lonlat_mod, ONLY : lon_reg, lat_reg
    603     USE mod_phys_lmdz_para, ONLY : is_mpi_root
    604     USE mod_grid_phy_lmdz, ONLY : klon_glo
     601    USE regular_lonlat_mod, ONLY: lon_reg, lat_reg
     602    USE regular_lonlat_mod, ONLY: lon_reg, lat_reg
     603    USE mod_phys_lmdz_para, ONLY: is_mpi_root
     604    USE mod_grid_phy_lmdz, ONLY: klon_glo
    605605
    606606    !-------------------------------------------------------------------------------
    … …  
    625625      sub = "prepare_out"
    626626      WRITE(lunout, *)"CALL sequence information: " // TRIM(sub)
    627       CALL NF95_CREATE("climoz_LMDZ.nc", nf90_clobber, fID_ou)
     627      CALL nf95_create("climoz_LMDZ.nc", nf90_clobber, fID_ou)
    628628
    629629      !--- Dimensions:
    … …  
    641641      CALL nf95_def_var(fID_ou, "time", nf90_float, dtimID, vtimID)
    642642      IF(ndims==4) &
    643               CALL NF95_PUT_ATT(fID_ou, vlonID, "units", "degrees_east")
    644       CALL NF95_PUT_ATT(fID_ou, vlatID, "units", "degrees_north")
    645       CALL NF95_PUT_ATT(fID_ou, vlevID, "units", "millibar")
    646       CALL NF95_PUT_ATT(fID_ou, vtimID, "units", "days since 2000-1-1")
     643              CALL nf95_put_att(fID_ou, vlonID, "units", "degrees_east")
     644      CALL nf95_put_att(fID_ou, vlatID, "units", "degrees_north")
     645      CALL nf95_put_att(fID_ou, vlevID, "units", "millibar")
     646      CALL nf95_put_att(fID_ou, vtimID, "units", "days since 2000-1-1")
    647647      IF(ndims==4) &
    648               CALL NF95_PUT_ATT(fID_ou, vlonID, "standard_name", "longitude")
    649       CALL NF95_PUT_ATT(fID_ou, vlatID, "standard_name", "latitude")
    650       CALL NF95_PUT_ATT(fID_ou, vlevID, "standard_name", "air_pressure")
    651       CALL NF95_PUT_ATT(fID_ou, vtimID, "standard_name", "time")
    652       CALL NF95_PUT_ATT(fID_ou, vlevID, "long_name", "air pressure")
    653       CALL NF95_PUT_ATT(fID_ou, vtimID, "calendar", cal_ou)
     648              CALL nf95_put_att(fID_ou, vlonID, "standard_name", "longitude")
     649      CALL nf95_put_att(fID_ou, vlatID, "standard_name", "latitude")
     650      CALL nf95_put_att(fID_ou, vlevID, "standard_name", "air_pressure")
     651      CALL nf95_put_att(fID_ou, vtimID, "standard_name", "time")
     652      CALL nf95_put_att(fID_ou, vlevID, "long_name", "air pressure")
     653      CALL nf95_put_att(fID_ou, vtimID, "calendar", cal_ou)
    654654
    655655      !--- Define the main variables:
    … …  
    657657      IF(ndims==4) dIDs = [dlonID, dlatID, dlevID, dtimID]
    658658      CALL nf95_def_var(fID_ou, vars_in(1), nf90_float, dIDs(1:ndims), vID_ou(1))
    659       CALL NF95_PUT_ATT(fID_ou, vID_ou(1), "long_name", "ozone mole fraction")
    660       CALL NF95_PUT_ATT(fID_ou, vID_ou(1), "standard_name", "mole_fraction_of_ozone&
     659      CALL nf95_put_att(fID_ou, vID_ou(1), "long_name", "ozone mole fraction")
     660      CALL nf95_put_att(fID_ou, vID_ou(1), "standard_name", "mole_fraction_of_ozone&
    661661              _in_air")
    662662      IF(SIZE(vID_ou) == 2) THEN
    663663        CALL nf95_def_var(fID_ou, vars_in(2), nf90_float, dIDs(1:ndims), vID_ou(2))
    664         CALL NF95_PUT_ATT(fID_ou, vID_ou(2), "long_name", "ozone mole fraction in da&
     664        CALL nf95_put_att(fID_ou, vID_ou(2), "long_name", "ozone mole fraction in da&
    665665                ylight")
    666666      END IF
    … …  
    669669      ! The following commands, copying attributes, may fail. That is OK.
    670670      ! It should just mean that the attribute is not defined in the input file.
    671       CALL NF95_COPY_ATT(fID_in, nf90_global, "Conventions", fID_ou, nf90_global, ncerr)
     671      CALL nf95_copy_att(fID_in, nf90_global, "Conventions", fID_ou, nf90_global, ncerr)
    672672      CALL handle_err_copy_att("Conventions")
    673       CALL NF95_COPY_ATT(fID_in, nf90_global, "title", fID_ou, nf90_global, ncerr)
     673      CALL nf95_copy_att(fID_in, nf90_global, "title", fID_ou, nf90_global, ncerr)
    674674      CALL handle_err_copy_att("title")
    675       CALL NF95_COPY_ATT(fID_in, nf90_global, "institution", fID_ou, nf90_global, ncerr)
     675      CALL nf95_copy_att(fID_in, nf90_global, "institution", fID_ou, nf90_global, ncerr)
    676676      CALL handle_err_copy_att("institution")
    677       CALL NF95_COPY_ATT(fID_in, nf90_global, "source", fID_ou, nf90_global, ncerr)
     677      CALL nf95_copy_att(fID_in, nf90_global, "source", fID_ou, nf90_global, ncerr)
    678678      CALL handle_err_copy_att("source")
    679       CALL NF95_PUT_ATT (fID_ou, nf90_global, "comment", "Regridded for LMDZ")
    680       CALL NF95_ENDDEF(fID_ou)
     679      CALL nf95_put_att (fID_ou, nf90_global, "comment", "Regridded for LMDZ")
     680      CALL nf95_enddef(fID_ou)
    681681
    682682      IF (grid_type==unstructured) THEN
    … …  
    685685          latitude_glo_(ind_cell_glo_glo(i)) = latitude_glo(i)
    686686        ENDDO
    687         CALL NF95_PUT_VAR(fID_ou, vlatID, latitude_glo_)
     687        CALL nf95_put_var(fID_ou, vlatID, latitude_glo_)
    688688      ELSE
    689689        !--- Write one of the coordinate variables:
    690         IF(ndims==4) CALL NF95_PUT_VAR(fID_ou, vlonID, lon_reg / deg2rad)
    691         CALL NF95_PUT_VAR(fID_ou, vlatID, lat_reg(nlat_ou:1:-1) / deg2rad)
     690        IF(ndims==4) CALL nf95_put_var(fID_ou, vlonID, lon_reg / deg2rad)
     691        CALL nf95_put_var(fID_ou, vlatID, lat_reg(nlat_ou:1:-1) / deg2rad)
    692692        !    (convert from rad to degrees and sort in ascending order)
    693693      ENDIF
    … …  
    701701
    702702      !-------------------------------------------------------------------------------
    703       USE netcdf, ONLY : nf90_noerr, NF90_strerror
     703      USE netcdf, ONLY: nf90_noerr, nf90_strerror
    704704      !-------------------------------------------------------------------------------
    705705      ! Arguments:
    … …  
    707707      !-------------------------------------------------------------------------------
    708708      IF(ncerr /= nf90_noerr) &
    709               WRITE(lunout, *)TRIM(sub) // " prepare_out NF95_COPY_ATT " // TRIM(att_name) // &
    710                       " -- " // TRIM(NF90_strerror(ncerr))
     709              WRITE(lunout, *)TRIM(sub) // " prepare_out nf95_copy_att " // TRIM(att_name) // &
     710                      " -- " // TRIM(nf90_strerror(ncerr))
    711711
    712712    END SUBROUTINE handle_err_copy_att

  • LMDZ6/branches/Amaury_dev/libf/phylmd/regr_lat_time_coefoz_m.F90

    r5088 r5101  
    4040    ! when we regrid in pressure).
    4141
    42     use mod_grid_phy_lmdz, ONLY : nbp_lat
     42    use mod_grid_phy_lmdz, ONLY: nbp_lat
    4343    use regr_conserv_m, only: regr_conserv
    4444    use regr_lint_m, only: regr_lint
    … …  
    240240    ! dimensions and variables, and writes one of the coordinate variables.
    241241
    242     use mod_grid_phy_lmdz, ONLY : nbp_lat
     242    use mod_grid_phy_lmdz, ONLY: nbp_lat
    243243    use assert_eq_m, only: assert_eq
    244244
    … …  
    247247    use netcdf, only: nf90_clobber, nf90_float, nf90_copy_att, nf90_global
    248248    use nrtype, only: pi
    249     use regular_lonlat_mod, only : lat_reg
     249    use regular_lonlat_mod, ONLY: lat_reg
    250250
    251251    integer, intent(in):: ncid_in, varid_in(:), n_plev

  • LMDZ6/branches/Amaury_dev/libf/phylmd/regr_pr_time_av_m.F90

    r5100 r5101  
    113113!-------------------------------------------------------------------------------
    114114  USE dimphy,         ONLY: klon
    115   USE netcdf95,       ONLY: nf95_inq_varid, NF95_INQUIRE_VARIABLE, &
     115  USE netcdf95,       ONLY: nf95_inq_varid, nf95_inquire_variable, &
    116116                            nf95_inq_dimid, nf95_inquire_dimension, nf95_get_var
    117   USE netcdf,         ONLY: NF90_INQ_VARID, nf90_noerr
     117  USE netcdf,         ONLY: nf90_inq_varid, nf90_noerr
    118118  USE assert_m,       ONLY: assert
    119119  USE assert_eq_m,    ONLY: assert_eq
    … …  
    210210    !=== CHECK WHICH FIELDS ARE AVAILABLE IN THE INPUT FILE
    211211    IF(lfirst) THEN
    212       lPrSfile=lAdjTro.AND.NF90_INQ_VARID(fID,"ps"                     ,vID)==nf90_noerr
    213       lPrTfile=lAdjTro.AND.NF90_INQ_VARID(fID,"tropopause_air_pressure",vID)==nf90_noerr
    214       lO3Tfile=lAdjTro.AND.NF90_INQ_VARID(fID,"tro3_at_tropopause"     ,vID)==nf90_noerr
     212      lPrSfile=lAdjTro.AND.nf90_inq_varid(fID,"ps"                     ,vID)==nf90_noerr
     213      lPrTfile=lAdjTro.AND.nf90_inq_varid(fID,"tropopause_air_pressure",vID)==nf90_noerr
     214      lO3Tfile=lAdjTro.AND.nf90_inq_varid(fID,"tro3_at_tropopause"     ,vID)==nf90_noerr
    215215      CALL nf95_inq_dimid(fID,"time",vID)
    216216      CALL nf95_inquire_dimension(fID,vID,nclen=ntim_in)
    … …  
    481481!-------------------------------------------------------------------------------
    482482  CALL nf95_inq_varid(fID, TRIM(var), vID)
    483   CALL NF95_INQUIRE_VARIABLE(fID, vID, ndims=n_dim)
    484   IF(n_dim==2) call NF95_GET_VAR(fID,vID,v(1,:), start=[  1,irec])
    485   IF(n_dim==3) call NF95_GET_VAR(fID,vID,v(:,:), start=[1,1,irec])
     483  CALL nf95_inquire_variable(fID, vID, ndims=n_dim)
     484  IF(n_dim==2) call nf95_get_var(fID,vID,v(1,:), start=[  1,irec])
     485  IF(n_dim==3) call nf95_get_var(fID,vID,v(:,:), start=[1,1,irec])
    486486
    487487  !--- Flip latitudes: ascending in input file, descending in "rlatu".
    … …  
    512512  DO i=1,SIZE(nam)
    513513    CALL nf95_inq_varid(fID, TRIM(nam(i)), vID)
    514     CALL NF95_INQUIRE_VARIABLE(fID, vID, ndims=n_dim)
    515     IF(n_dim==3) call NF95_GET_VAR(fID,vID,v(1,:,:,i), start=[  1,1,irec])
    516     IF(n_dim==4) call NF95_GET_VAR(fID,vID,v(:,:,:,i), start=[1,1,1,irec])
     514    CALL nf95_inquire_variable(fID, vID, ndims=n_dim)
     515    IF(n_dim==3) call nf95_get_var(fID,vID,v(1,:,:,i), start=[  1,1,irec])
     516    IF(n_dim==4) call nf95_get_var(fID,vID,v(:,:,:,i), start=[1,1,1,irec])
    517517  END DO
    518518

  • LMDZ6/branches/Amaury_dev/libf/phylmd/slab_heat_transp_mod.F90

    r5099 r5101  
    146146
    147147!    USE ioipsl_getin_p_mod, only: getin_p
    148     USE IOIPSL, ONLY : getin
     148    USE IOIPSL, ONLY: getin
    149149    IMPLICIT NONE
    150150

  • LMDZ6/branches/Amaury_dev/libf/phylmd/stdlevvar_mod.F90

    r5099 r5101  
    319319                           n2mout)
    320320
    321       USE ioipsl_getin_p_mod, ONLY : getin_p
     321      USE ioipsl_getin_p_mod, ONLY: getin_p
    322322      IMPLICIT NONE
    323323!-------------------------------------------------------------------------

  • LMDZ6/branches/Amaury_dev/libf/phylmd/sumethox.F90

    r5087 r5101  
    4545!     ------------------------------------------------------------------
    4646
    47 USE YOEMETH   , ONLY : RALPHA1 ,RALPHA2  ,RQLIM   ,&
     47USE YOEMETH   , ONLY: RALPHA1 ,RALPHA2  ,RQLIM   ,&
    4848   RPBOTOX,  RPBOTPH ,RPTOPOX  ,RPTOPPH ,&
    4949   RALPHA3,  RLOGPPH

  • LMDZ6/branches/Amaury_dev/libf/phylmd/surf_land_orchidee_mod.F90

    r5099 r5101  
    2323  USE intersurf     ! module in ORCHIDEE
    2424#endif
    25   USE cpl_mod,      ONLY : cpl_send_land_fields, cpl_send_landice_fields
    26   USE surface_data, ONLY : type_ocean, landice_opt
    27   USE geometry_mod, ONLY : dx, dy, boundslon, boundslat,longitude, latitude, cell_area,  ind_cell_glo
     25  USE cpl_mod,      ONLY: cpl_send_land_fields, cpl_send_landice_fields
     26  USE surface_data, ONLY: type_ocean, landice_opt
     27  USE geometry_mod, ONLY: dx, dy, boundslon, boundslat,longitude, latitude, cell_area,  ind_cell_glo
    2828  USE mod_grid_phy_lmdz
    2929  USE mod_phys_lmdz_para, mpi_root_rank=>mpi_master
    30   USE carbon_cycle_mod, ONLY : nbcf_in_orc, nbcf_out, fields_in, yfields_in, yfields_out, cfname_in, cfname_out
    31   USE nrtype, ONLY : PI
     30  USE carbon_cycle_mod, ONLY: nbcf_in_orc, nbcf_out, fields_in, yfields_in, yfields_out, cfname_in, cfname_out
     31  USE nrtype, ONLY: PI
    3232 
    3333  IMPLICIT NONE

  • LMDZ6/branches/Amaury_dev/libf/phylmd/surf_land_orchidee_nofrein_mod.F90

    r5099 r5101  
    2323  USE intersurf     ! module d'ORCHIDEE
    2424#endif
    25   USE cpl_mod,      ONLY : cpl_send_land_fields
    26   USE surface_data, ONLY : type_ocean
    27   USE geometry_mod, ONLY : dx, dy
     25  USE cpl_mod,      ONLY: cpl_send_land_fields
     26  USE surface_data, ONLY: type_ocean
     27  USE geometry_mod, ONLY: dx, dy
    2828  USE mod_grid_phy_lmdz
    2929  USE mod_phys_lmdz_para, mpi_root_rank=>mpi_master
    … …  
    5353    USE mod_surf_para
    5454    USE mod_synchro_omp
    55     USE carbon_cycle_mod, ONLY : carbon_cycle_cpl
     55    USE carbon_cycle_mod, ONLY: carbon_cycle_cpl
    5656    USE indice_sol_mod
    5757    USE print_control_mod, ONLY: lunout

  • LMDZ6/branches/Amaury_dev/libf/phylmd/surf_land_orchidee_nolic_mod.F90

    r5099 r5101  
    1919  USE intersurf     ! module d'ORCHIDEE
    2020#endif
    21   USE cpl_mod,      ONLY : cpl_send_land_fields
    22   USE surface_data, ONLY : type_ocean
    23   USE geometry_mod, ONLY : dx, dy, boundslon, boundslat,longitude, latitude, cell_area,  ind_cell_glo
     21  USE cpl_mod,      ONLY: cpl_send_land_fields
     22  USE surface_data, ONLY: type_ocean
     23  USE geometry_mod, ONLY: dx, dy, boundslon, boundslat,longitude, latitude, cell_area,  ind_cell_glo
    2424  USE mod_grid_phy_lmdz
    2525  USE mod_phys_lmdz_para, mpi_root_rank=>mpi_master
    26   USE carbon_cycle_mod, ONLY : nbcf_in_orc, nbcf_out, fields_in, yfields_in, yfields_out, cfname_in, cfname_out
    27   USE nrtype, ONLY : PI
     26  USE carbon_cycle_mod, ONLY: nbcf_in_orc, nbcf_out, fields_in, yfields_in, yfields_out, cfname_in, cfname_out
     27  USE nrtype, ONLY: PI
    2828 
    2929  IMPLICIT NONE

  • LMDZ6/branches/Amaury_dev/libf/phylmd/surf_land_orchidee_noopenmp_mod.F90

    r5099 r5101  
    2020  USE intersurf     ! module d'ORCHIDEE
    2121#endif
    22   USE cpl_mod,      ONLY : cpl_send_land_fields
    23   USE surface_data, ONLY : type_ocean
    24   USE geometry_mod, ONLY : dx, dy
     22  USE cpl_mod,      ONLY: cpl_send_land_fields
     23  USE surface_data, ONLY: type_ocean
     24  USE geometry_mod, ONLY: dx, dy
    2525  USE mod_grid_phy_lmdz
    2626  USE mod_phys_lmdz_para
    … …  
    9999!   qsurf        air moisture at surface
    100100
    101     USE carbon_cycle_mod, ONLY : carbon_cycle_cpl, fco2_land_inst, fco2_lu_inst
     101    USE carbon_cycle_mod, ONLY: carbon_cycle_cpl, fco2_land_inst, fco2_lu_inst
    102102    USE indice_sol_mod
    103103    USE mod_grid_phy_lmdz, ONLY: nbp_lon, nbp_lat

  • LMDZ6/branches/Amaury_dev/libf/phylmd/surf_land_orchidee_nounstruct_mod.F90

    r5099 r5101  
    1919  USE intersurf     ! module d'ORCHIDEE
    2020#endif
    21   USE cpl_mod,      ONLY : cpl_send_land_fields
    22   USE surface_data, ONLY : type_ocean
    23   USE geometry_mod, ONLY : dx, dy
     21  USE cpl_mod,      ONLY: cpl_send_land_fields
     22  USE surface_data, ONLY: type_ocean
     23  USE geometry_mod, ONLY: dx, dy
    2424  USE mod_grid_phy_lmdz
    2525  USE mod_phys_lmdz_para, mpi_root_rank=>mpi_master
    … …  
    4949    USE mod_surf_para
    5050    USE mod_synchro_omp
    51     USE carbon_cycle_mod, ONLY : carbon_cycle_cpl
     51    USE carbon_cycle_mod, ONLY: carbon_cycle_cpl
    5252    USE indice_sol_mod
    5353    USE print_control_mod, ONLY: lunout

  • LMDZ6/branches/Amaury_dev/libf/phylmd/surf_land_orchidee_noz0h_mod.F90

    r5099 r5101  
    2222  USE intersurf     ! module d'ORCHIDEE
    2323#endif
    24   USE cpl_mod,      ONLY : cpl_send_land_fields
    25   USE surface_data, ONLY : type_ocean
    26   USE geometry_mod, ONLY : dx, dy
     24  USE cpl_mod,      ONLY: cpl_send_land_fields
     25  USE surface_data, ONLY: type_ocean
     26  USE geometry_mod, ONLY: dx, dy
    2727  USE mod_grid_phy_lmdz
    2828  USE mod_phys_lmdz_para, mpi_root_rank=>mpi_master
    … …  
    5151    USE mod_surf_para
    5252    USE mod_synchro_omp
    53     USE carbon_cycle_mod, ONLY : carbon_cycle_cpl
     53    USE carbon_cycle_mod, ONLY: carbon_cycle_cpl
    5454    USE indice_sol_mod
    5555    USE print_control_mod, ONLY: lunout

  • LMDZ6/branches/Amaury_dev/libf/phylmd/surf_landice_mod.F90

    r5099 r5101  
    3131
    3232    USE dimphy
    33     USE geometry_mod,     ONLY : longitude,latitude
    34     USE surface_data,     ONLY : type_ocean, calice, calsno, landice_opt, iflag_albcalc
    35     USE fonte_neige_mod,  ONLY : fonte_neige,run_off_lic,fqcalving_global,ffonte_global,fqfonte_global,runofflic_global
    36     USE cpl_mod,          ONLY : cpl_send_landice_fields
     33    USE geometry_mod,     ONLY: longitude,latitude
     34    USE surface_data,     ONLY: type_ocean, calice, calsno, landice_opt, iflag_albcalc
     35    USE fonte_neige_mod,  ONLY: fonte_neige,run_off_lic,fqcalving_global,ffonte_global,fqfonte_global,runofflic_global
     36    USE cpl_mod,          ONLY: cpl_send_landice_fields
    3737    USE calcul_fluxs_mod
    38     USE phys_local_var_mod, ONLY : zxrhoslic, zxustartlic, zxqsaltlic
    39     USE phys_output_var_mod, ONLY : snow_o,zfra_o
     38    USE phys_local_var_mod, ONLY: zxrhoslic, zxustartlic, zxqsaltlic
     39    USE phys_output_var_mod, ONLY: snow_o,zfra_o
    4040#ifdef ISO   
    41     USE fonte_neige_mod,  ONLY : xtrun_off_lic
    42     USE infotrac_phy,     ONLY : ntiso,niso
     41    USE fonte_neige_mod,  ONLY: xtrun_off_lic
     42    USE infotrac_phy,     ONLY: ntiso,niso
    4343    USE isotopes_routines_mod, ONLY: calcul_iso_surf_lic_vectall
    4444#ifdef ISOVERIF
    … …  
    4949 
    5050!FC
    51     USE ioipsl_getin_p_mod, ONLY : getin_p
    52     USE lmdz_blowing_snow_ini, ONLY : c_esalt_bs, zeta_bs, pbst_bs, prt_bs, rhoice_bs, rhohard_bs
    53     USE lmdz_blowing_snow_ini, ONLY : rhofresh_bs, tau_eqsalt_bs, tau_dens0_bs, tau_densmin_bs
     51    USE ioipsl_getin_p_mod, ONLY: getin_p
     52    USE lmdz_blowing_snow_ini, ONLY: c_esalt_bs, zeta_bs, pbst_bs, prt_bs, rhoice_bs, rhohard_bs
     53    USE lmdz_blowing_snow_ini, ONLY: rhofresh_bs, tau_eqsalt_bs, tau_dens0_bs, tau_densmin_bs
    5454#ifdef CPP_INLANDSIS
    55     USE surf_inlandsis_mod,  ONLY : surf_inlandsis
     55    USE surf_inlandsis_mod,  ONLY: surf_inlandsis
    5656#endif
    5757

  • LMDZ6/branches/Amaury_dev/libf/phylmd/surf_ocean_mod.F90

    r5099 r5101  
    3232    USE dimphy, ONLY: klon, zmasq
    3333    USE surface_data, ONLY     : type_ocean
    34     USE ocean_forced_mod, ONLY : ocean_forced_noice
     34    USE ocean_forced_mod, ONLY: ocean_forced_noice
    3535    USE ocean_slab_mod, ONLY   : ocean_slab_noice
    3636    USE ocean_cpl_mod, ONLY    : ocean_cpl_noice
    37     USE indice_sol_mod, ONLY : nbsrf, is_oce
    38 #ifdef ISO
    39     USE infotrac_phy, ONLY : ntraciso=>ntiso,niso
     37    USE indice_sol_mod, ONLY: nbsrf, is_oce
     38#ifdef ISO
     39    USE infotrac_phy, ONLY: ntraciso=>ntiso,niso
    4040#ifdef ISOVERIF
    4141    USE isotopes_mod, ONLY: iso_eau,ridicule

  • LMDZ6/branches/Amaury_dev/libf/phylmd/surf_seaice_mod.F90

    r5099 r5101  
    3030  USE dimphy
    3131  USE surface_data
    32   USE ocean_forced_mod, ONLY : ocean_forced_ice
     32  USE ocean_forced_mod, ONLY: ocean_forced_ice
    3333  USE ocean_cpl_mod, ONLY    : ocean_cpl_ice
    3434  USE ocean_slab_mod, ONLY   : ocean_slab_ice
    3535  USE indice_sol_mod
    3636#ifdef ISO
    37   USE infotrac_phy, ONLY : ntiso,niso
     37  USE infotrac_phy, ONLY: ntiso,niso
    3838#endif
    3939

  • LMDZ6/branches/Amaury_dev/libf/phylmd/sw_aeroAR4.F90

    r5099 r5101  
    2121
    2222  USE dimphy
    23   USE phys_output_mod, ONLY : swaero_diag
     23  USE phys_output_mod, ONLY: swaero_diag
    2424  USE print_control_mod, ONLY: lunout
    25   USE aero_mod, ONLY : naero_grp
     25  USE aero_mod, ONLY: naero_grp
    2626  IMPLICIT NONE
    2727

  • LMDZ6/branches/Amaury_dev/libf/phylmd/time_phylmdz_mod.F90

    r5099 r5101  
    3636  SUBROUTINE init_time(annee_ref_, day_ref_, day_ini_, start_time_, &
    3737                       ndays_, pdtphys_)
    38   USE ioipsl_getin_p_mod, ONLY : getin_p
     38  USE ioipsl_getin_p_mod, ONLY: getin_p
    3939  USE phys_cal_mod, ONLY: phys_cal_init
    4040  IMPLICIT NONE
    … …  
    7979  SUBROUTINE update_time(pdtphys_)
    8080  ! This subroutine updates the module saved variables.
    81   USE ioipsl, ONLY : ymds2ju
     81  USE ioipsl, ONLY: ymds2ju
    8282  USE phys_cal_mod, ONLY: phys_cal_update
    8383  USE print_control_mod, ONLY: lunout

  • LMDZ6/branches/Amaury_dev/libf/phylmd/tracco2i_mod.F90

    r5099 r5101  
    344344    USE dimphy
    345345!    USE infotrac_phy
    346     USE geometry_mod, ONLY : cell_area
     346    USE geometry_mod, ONLY: cell_area
    347347    USE mod_grid_phy_lmdz
    348348    USE mod_phys_lmdz_mpi_data, ONLY: is_mpi_root
    … …  
    353353    USE netcdf, ONLY: nf90_get_var, nf90_noerr, nf90_nowrite
    354354
    355     USE carbon_cycle_mod, ONLY : fco2_ff, fco2_bb, fco2_land, fco2_ocean
     355    USE carbon_cycle_mod, ONLY: fco2_ff, fco2_bb, fco2_land, fco2_ocean
    356356
    357357    IMPLICIT NONE

  • LMDZ6/branches/Amaury_dev/libf/phylmd/tracinca_mod.F90

    r5099 r5101  
    6161    USE geometry_mod, ONLY: cell_area
    6262    USE mod_grid_phy_lmdz, ONLY: nbp_lon, nbp_lat
    63     USE aero_mod, ONLY : naero_grp
     63    USE aero_mod, ONLY: naero_grp
    6464    USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_INCA
    6565    IMPLICIT NONE

  • LMDZ6/branches/Amaury_dev/libf/phylmd/tracreprobus_mod.F90

    r5099 r5101  
    1313    USE infotrac_phy, ONLY: nbtr
    1414#ifdef REPROBUS
    15     USE CHEM_REP, ONLY : pdt_rep, &  ! pas de temps reprobus
     15    USE CHEM_REP, ONLY: pdt_rep, &  ! pas de temps reprobus
    1616         daynum, iter, &             ! jourjulien, iteration chimie
    1717         pdel,&

  • LMDZ6/branches/Amaury_dev/libf/phylmd/yamada4.F90

    r5099 r5101  
    44    cd, tke, eps, km, kn, kq, ustar, iflag_pbl, drgpro)
    55
    6   USE dimphy, only : klev,klon
     6  USE dimphy, ONLY: klev,klon
    77  USE phys_local_var_mod, only: wprime
    8   USE yamada_ini_mod, only : new_yamada4,yamada4_num,hboville
    9   USE yamada_ini_mod, only : prt_level, lunout,pbl_lmixmin_alpha,b1,kap,viscom,viscoh
    10   USE yamada_ini_mod, only : ric, yun,ydeux,lmixmin,iflag_vdif_q2
     8  USE yamada_ini_mod, ONLY: new_yamada4,yamada4_num,hboville
     9  USE yamada_ini_mod, ONLY: prt_level, lunout,pbl_lmixmin_alpha,b1,kap,viscom,viscoh
     10  USE yamada_ini_mod, ONLY: ric, yun,ydeux,lmixmin,iflag_vdif_q2
    1111 
    1212  IMPLICIT NONE
    … …  
    712712SUBROUTINE vdif_q2(timestep, gravity, rconst, ngrid, plev, temp, kmy, q2)
    713713
    714   USE dimphy, only : klev,klon
     714  USE dimphy, ONLY: klev,klon
    715715  IMPLICIT NONE
    716716 
    … …  
    801801 SUBROUTINE vdif_q2e(timestep, gravity, rconst, ngrid, plev, temp, kmy, q2)
    802802 
    803    USE dimphy, only : klev,klon
     803   USE dimphy, ONLY: klev,klon
    804804  IMPLICIT NONE
    805805
    … …  
    872872
    873873
    874   USE dimphy, only : klev,klon
    875   USE yamada_ini_mod, only : l0
     874  USE dimphy, ONLY: klev,klon
     875  USE yamada_ini_mod, ONLY: l0
    876876  USE phys_state_var_mod, only: zstd, zsig, zmea
    877877  USE phys_local_var_mod, only: l_mixmin, l_mix
    878   USE yamada_ini_mod, only : kap, kapb
     878  USE yamada_ini_mod, ONLY: kap, kapb
    879879
    880880 ! zstd: ecart type de la'altitud e sous-maille

  • LMDZ6/branches/Amaury_dev/libf/phylmd/yamada_c.F90

    r5099 r5101  
    77      USE dimphy, ONLY: klon, klev
    88      USE print_control_mod, ONLY: prt_level
    9       USE ioipsl_getin_p_mod, ONLY : getin_p
     9      USE ioipsl_getin_p_mod, ONLY: getin_p
    1010
    1111      IMPLICIT NONE

  • LMDZ6/branches/Amaury_dev/libf/phylmd/yamada_ini_mod.F90

    r5081 r5101  
    2727SUBROUTINE yamada_ini(klon,lunout_in,prt_level_in)
    2828
    29    USE ioipsl_getin_p_mod, ONLY : getin_p
     29   USE ioipsl_getin_p_mod, ONLY: getin_p
    3030
    3131! local
Note: See TracChangeset for help on using the changeset viewer.