Ignore:
Timestamp:
Aug 2, 2024, 2:12:03 PM (7 months ago)
Author:
abarral
Message:

Add missing klon on strataer_emiss_mod.F90
Correct various missing explicit declarations
Replace tabs by spaces (tabs are not part of the fortran charset)
Continue cleaning modules
Removed unused arguments and variables

Location:
LMDZ6/branches/Amaury_dev/libf/dynphy_lonlat
Files:
5 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/Amaury_dev/libf/dynphy_lonlat/calfis.f90

    r5136 r5158  
    364364  !  --------------------------------------------------------------
    365365  DO l = 1, llm
    366     do i = 1, iim
    367       do j = 1, jjm
     366    DO i = 1, iim
     367      DO j = 1, jjm
    368368        zrot(i, j, l) = (pvcov(i + 1, j, l) - pvcov(i, j, l) &
    369369                + pucov(i, j + 1, l) - pucov(i, j, l)) &
    … …  
    471471  IF (CPPKEY_PHYS) THEN
    472472
    473     do isplit = 1, nsplit_phys
     473    DO isplit = 1, nsplit_phys
    474474
    475475      jH_cur_split = jH_cur + (isplit - 1) * dtvr / (daysec * nsplit_phys)

  • LMDZ6/branches/Amaury_dev/libf/dynphy_lonlat/lmdz_calfis_loc.F90

    r5136 r5158  
    285285  !CDIR ON_ADB(index_i)
    286286  !CDIR ON_ADB(index_j)
    287   do ig0=1,klon
     287  DO ig0=1,klon
    288288    i=index_i(ig0)
    289289    j=index_j(ig0)
    … …  
    309309  !CDIR ON_ADB(index_i)
    310310  !CDIR ON_ADB(index_j)
    311     do ig0=1,klon
     311    DO ig0=1,klon
    312312      i=index_i(ig0)
    313313      j=index_j(ig0)
    … …  
    319319!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
    320320  DO l=1,llm
    321     do ig0=1,klon
     321    DO ig0=1,klon
    322322      i=index_i(ig0)
    323323      j=index_j(ig0)
    … …  
    334334  !CDIR ON_ADB(index_i)
    335335  !CDIR ON_ADB(index_j)
    336     do ig0=1,klon
     336    DO ig0=1,klon
    337337      i=index_i(ig0)
    338338      j=index_j(ig0)
    … …  
    356356  !CDIR ON_ADB(index_i)
    357357  !CDIR ON_ADB(index_j)
    358        do ig0=1,klon
     358       DO ig0=1,klon
    359359         i=index_i(ig0)
    360360         j=index_j(ig0)
    … …  
    373373  !CDIR ON_ADB(index_i)
    374374  !CDIR ON_ADB(index_j)
    375        do ig0=1,klon
     375       DO ig0=1,klon
    376376         i=index_i(ig0)
    377377         j=index_j(ig0)
    … …  
    386386  !CDIR ON_ADB(index_i)
    387387  !CDIR ON_ADB(index_j)
    388        do ig0=1,klon
     388       DO ig0=1,klon
    389389         i=index_i(ig0)
    390390         j=index_j(ig0)
    … …  
    420420  !CDIR ON_ADB(index_j)
    421421  !CDIR SPARSE
    422     do ig0=kstart,kend
     422    DO ig0=kstart,kend
    423423      i=index_i(ig0)
    424424      j=index_j(ig0)
    … …  
    446446
    447447  DO l=1,llm
    448     do i=1,iim
    449       do j=jjb,jje
     448    DO i=1,iim
     449      DO j=jjb,jje
    450450        zrot(i,j,l) = (pvcov(i+1,j,l) - pvcov(i,j,l) &
    451451              + pucov(i,j+1,l) - pucov(i,j,l)) &
    … …  
    545545  !CDIR ON_ADB(index_i)
    546546  !CDIR ON_ADB(index_j)
    547        do ig0=1,klon
     547       DO ig0=1,klon
    548548         i=index_i(ig0)
    549549         j=index_j(ig0)
    … …  
    592592  offset=klon_omp_begin-1
    593593
    594   do l=1,llm+1
    595     do i=1,klon
     594  DO l=1,llm+1
     595    DO i=1,klon
    596596      zplev_omp(i,l)=zplev(offset+i,l)
    597597    enddo
    598598  enddo
    599599
    600    do l=1,llm
    601     do i=1,klon
     600   DO l=1,llm
     601    DO i=1,klon
    602602      zplay_omp(i,l)=zplay(offset+i,l)
    603603    enddo
    604604  enddo
    605605
    606    do l=1,llm
    607     do i=1,klon
     606   DO l=1,llm
     607    DO i=1,klon
    608608      zpk_omp(i,l)=zpk(offset+i,l)
    609609    enddo
    610610  enddo
    611611
    612   do l=1,llm
    613     do i=1,klon
     612  DO l=1,llm
     613    DO i=1,klon
    614614      zphi_omp(i,l)=zphi(offset+i,l)
    615615    enddo
    616616  enddo
    617617
    618   do i=1,klon
     618  DO i=1,klon
    619619    zphis_omp(i)=zphis(offset+i)
    620620  enddo
    621621
    622622
    623   do l=1,llm
     623  DO l=1,llm
    624624    presnivs_omp(l)=presnivs(l)
    625625  enddo
    626626
    627   do l=1,llm
    628     do i=1,klon
     627  DO l=1,llm
     628    DO i=1,klon
    629629      zufi_omp(i,l)=zufi(offset+i,l)
    630630    enddo
    631631  enddo
    632632
    633   do l=1,llm
    634     do i=1,klon
     633  DO l=1,llm
     634    DO i=1,klon
    635635      zvfi_omp(i,l)=zvfi(offset+i,l)
    636636    enddo
    637637  enddo
    638638
    639   do l=1,llm
    640     do i=1,klon
     639  DO l=1,llm
     640    DO i=1,klon
    641641      zrfi_omp(i,l)=zrfi(offset+i,l)
    642642    enddo
    643643  enddo
    644644
    645   do l=1,llm
    646     do i=1,klon
     645  DO l=1,llm
     646    DO i=1,klon
    647647      ztfi_omp(i,l)=ztfi(offset+i,l)
    648648    enddo
    649649  enddo
    650650
    651   do iq=1,nqtot
    652     do l=1,llm
    653       do i=1,klon
     651  DO iq=1,nqtot
     652    DO l=1,llm
     653      DO i=1,klon
    654654        zqfi_omp(i,l,iq)=zqfi(offset+i,l,iq)
    655655      enddo
    … …  
    657657  enddo
    658658
    659   do l=1,llm
    660     do i=1,klon
     659  DO l=1,llm
     660    DO i=1,klon
    661661      zdufi_omp(i,l)=zdufi(offset+i,l)
    662662    enddo
    663663  enddo
    664664
    665   do l=1,llm
    666     do i=1,klon
     665  DO l=1,llm
     666    DO i=1,klon
    667667      zdvfi_omp(i,l)=zdvfi(offset+i,l)
    668668    enddo
    669669  enddo
    670670
    671   do l=1,llm
    672     do i=1,klon
     671  DO l=1,llm
     672    DO i=1,klon
    673673      zdtfi_omp(i,l)=zdtfi(offset+i,l)
    674674    enddo
    675675  enddo
    676676
    677   do iq=1,nqtot
    678     do l=1,llm
    679       do i=1,klon
     677  DO iq=1,nqtot
     678    DO l=1,llm
     679      DO i=1,klon
    680680        zdqfi_omp(i,l,iq)=zdqfi(offset+i,l,iq)
    681681      enddo
    … …  
    683683  enddo
    684684
    685   do i=1,klon
     685  DO i=1,klon
    686686    zdpsrf_omp(i)=zdpsrf(offset+i)
    687687  enddo
    688688
    689   do l=1,llm
    690     do i=1,klon
     689  DO l=1,llm
     690    DO i=1,klon
    691691      flxwfi_omp(i,l)=flxwfi(offset+i,l)
    692692    enddo
    … …  
    705705  zdqfic_omp(:,:,:)=0.
    706706
    707   do isplit=1,nsplit_phys
     707  DO isplit=1,nsplit_phys
    708708
    709709     jH_cur_split=jH_cur+(isplit-1) * dtvr / (daysec *nsplit_phys)
    … …  
    743743!$OMP BARRIER
    744744
    745   do l=1,llm+1
    746     do i=1,klon
     745  DO l=1,llm+1
     746    DO i=1,klon
    747747      zplev(offset+i,l)=zplev_omp(i,l)
    748748    enddo
    749749  enddo
    750750
    751    do l=1,llm
    752     do i=1,klon
     751   DO l=1,llm
     752    DO i=1,klon
    753753      zplay(offset+i,l)=zplay_omp(i,l)
    754754    enddo
    755755  enddo
    756756
    757   do l=1,llm
    758     do i=1,klon
     757  DO l=1,llm
     758    DO i=1,klon
    759759      zphi(offset+i,l)=zphi_omp(i,l)
    760760    enddo
    … …  
    762762
    763763
    764   do i=1,klon
     764  DO i=1,klon
    765765    zphis(offset+i)=zphis_omp(i)
    766766  enddo
    767767
    768768
    769   do l=1,llm
     769  DO l=1,llm
    770770    presnivs(l)=presnivs_omp(l)
    771771  enddo
    772772
    773   do l=1,llm
    774     do i=1,klon
     773  DO l=1,llm
     774    DO i=1,klon
    775775      zufi(offset+i,l)=zufi_omp(i,l)
    776776    enddo
    777777  enddo
    778778
    779   do l=1,llm
    780     do i=1,klon
     779  DO l=1,llm
     780    DO i=1,klon
    781781      zvfi(offset+i,l)=zvfi_omp(i,l)
    782782    enddo
    783783  enddo
    784784
    785   do l=1,llm
    786     do i=1,klon
     785  DO l=1,llm
     786    DO i=1,klon
    787787      ztfi(offset+i,l)=ztfi_omp(i,l)
    788788    enddo
    789789  enddo
    790790
    791   do iq=1,nqtot
    792     do l=1,llm
    793       do i=1,klon
     791  DO iq=1,nqtot
     792    DO l=1,llm
     793      DO i=1,klon
    794794        zqfi(offset+i,l,iq)=zqfi_omp(i,l,iq)
    795795      enddo
    … …  
    797797  enddo
    798798
    799   do l=1,llm
    800     do i=1,klon
     799  DO l=1,llm
     800    DO i=1,klon
    801801      zdufi(offset+i,l)=zdufi_omp(i,l)
    802802    enddo
    803803  enddo
    804804
    805   do l=1,llm
    806     do i=1,klon
     805  DO l=1,llm
     806    DO i=1,klon
    807807      zdvfi(offset+i,l)=zdvfi_omp(i,l)
    808808    enddo
    809809  enddo
    810810
    811   do l=1,llm
    812     do i=1,klon
     811  DO l=1,llm
     812    DO i=1,klon
    813813      zdtfi(offset+i,l)=zdtfi_omp(i,l)
    814814    enddo
    815815  enddo
    816816
    817   do iq=1,nqtot
    818     do l=1,llm
    819       do i=1,klon
     817  DO iq=1,nqtot
     818    DO l=1,llm
     819      DO i=1,klon
    820820        zdqfi(offset+i,l,iq)=zdqfi_omp(i,l,iq)
    821821      enddo
    … …  
    823823  enddo
    824824
    825   do i=1,klon
     825  DO i=1,klon
    826826    zdpsrf(offset+i)=zdpsrf_omp(i)
    827827  enddo
    … …  
    943943  !CDIR ON_ADB(index_j)
    944944  !cdir NODEP
    945     do ig0=kstart,kend
     945    DO ig0=kstart,kend
    946946      i=index_i(ig0)
    947947      j=index_j(ig0)
    … …  
    979979  !CDIR ON_ADB(index_j)
    980980  !cdir NODEP
    981     do ig0=kstart,kend
     981    DO ig0=kstart,kend
    982982      i=index_i(ig0)
    983983      j=index_j(ig0)
    … …  
    10791079  !CDIR ON_ADB(index_j)
    10801080  !cdir NODEP
    1081      do ig0=kstart,kend
     1081     DO ig0=kstart,kend
    10821082       i=index_i(ig0)
    10831083       j=index_j(ig0)
    … …  
    11241124  !CDIR ON_ADB(index_j)
    11251125  !cdir NODEP
    1126     do ig0=kstart,kend
     1126    DO ig0=kstart,kend
    11271127       i=index_i(ig0)
    11281128       j=index_j(ig0)

  • LMDZ6/branches/Amaury_dev/libf/dynphy_lonlat/phylmd/etat0phys_netcdf.F90

    r5139 r5158  
    538538    coslat0 = 0.5
    539539    phiso = phis
    540     do j = 2, jmp1 - 1
     540    DO j = 2, jmp1 - 1
    541541      PRINT*, 'avant if ', cos(rlatu(j)), coslat0
    542542      IF (cos(rlatu(j))<coslat0) THEN
    … …  
    544544        ifiltre = (coslat0 / cos(rlatu(j)) - 1.) / 2.
    545545        wwf = 0.
    546         do i = 1, ifiltre
     546        DO i = 1, ifiltre
    547547          wwf(i) = 1.
    548548        enddo
    549549        wwf(ifiltre + 1) = (coslat0 / cos(rlatu(j)) - 1.) / 2. - ifiltre
    550         do i = 1, imp1 - 1
     550        DO i = 1, imp1 - 1
    551551          IF (masque(i, j)>0.9) THEN
    552552            ssz = phis(i, j)
    553             do ifi = 1, ifiltre + 1
     553            DO ifi = 1, ifiltre + 1
    554554              ii = i + ifi
    555555              IF (ii>imp1 - 1) ii = ii - imp1 + 1

  • LMDZ6/branches/Amaury_dev/libf/dynphy_lonlat/phylmd/iniphysiq_mod.F90

    r5137 r5158  
    102102
    103103    !!$OMP PARALLEL DEFAULT(SHARED) COPYIN(/temps/)
    104     !   Copy all threadprivate variables in temps_mod
     104    !    Copy all threadprivate variables in temps_mod
    105105    !$OMP PARALLEL DEFAULT(SHARED) COPYIN(annee_ref,day_ini,day_ref,start_time)
    106106

  • LMDZ6/branches/Amaury_dev/libf/dynphy_lonlat/phylmd/test_disvert_m.F90

    r5134 r5158  
    4444    IF (any(p(:, :llm) <= p_lay .OR. p_lay <= p(:, 2:))) THEN
    4545       ! List details and stop:
    46        do l = 1, llm
    47           do i = 1, ngrid
     46       DO l = 1, llm
     47          DO i = 1, ngrid
    4848             IF (p(i, l) <= p_lay(i, l)) THEN
    4949                print 1000, "ps = ", ps(i) / 100., "hPa, p(level ",  l, &
Note: See TracChangeset for help on using the changeset viewer.