Changeset 5390 for LMDZ6


Ignore:
Timestamp:
Dec 5, 2024, 5:09:25 PM (7 months ago)
Author:
yann meurdesoif
Message:
  • Remove UTF8 character that inihibit fortran parsing with GPU morphosis
  • Add missing END SUBROUTINE instead of simple END, that inhibit correct parsing with regulat expression parser (quick and dirty parsing)

YM

Location:
LMDZ6/trunk/libf/phylmd
Files:
49 edited
1 copied

Legend:

Unmodified
Added
Removed

  • TabularUnified LMDZ6/trunk/libf/phylmd/Dust/bl_for_dms.f90

    r5337 r5390  
    102102  ENDDO
    103103  !
    104 END SUBROUTINE
     104END SUBROUTINE bl_for_dms

  • TabularUnified LMDZ6/trunk/libf/phylmd/add_wake_tend.f90

    r5268 r5390  
    11SUBROUTINE add_wake_tend(zddeltat, zddeltaq, zds, zdas, zddensw, zddensaw, zoccur, text, abortphy)
    22!===================================================================
    3 ! Ajoute les tendances liées aux diverses parametrisations physiques aux
     3! Ajoute les tendances liees aux diverses parametrisations physiques aux
    44! variables d'etat des poches froides.
    55!===================================================================
    … …  
    6767
    6868RETURN
    69 END
     69END SUBROUTINE add_wake_tend

  • TabularUnified LMDZ6/trunk/libf/phylmd/alpale_mod.f90

    r5284 r5390  
    214214
    215215    RETURN
    216   END
     216  END SUBROUTINE alpale
    217217
    218218END MODULE alpale_mod

  • TabularUnified LMDZ6/trunk/libf/phylmd/alpale_th.f90

    r5284 r5390  
    342342          endif
    343343   RETURN
    344    END
    345 
     344   END SUBROUTINE alpale_th
     345

  • TabularUnified LMDZ6/trunk/libf/phylmd/borne_var_surf.f90

    r5285 r5390  
    108108
    109109RETURN
    110 END
     110END SUBROUTINE borne_var_surf
    111111
    112112

  • TabularUnified LMDZ6/trunk/libf/phylmd/call_ini_replay.f90

    r5268 r5390  
    22   stop 'In call_ini_replay : You should run replay_equip.sh before runing replay[13]d'
    33   return
    4    end
     4   end subroutine call_ini_replay

  • TabularUnified LMDZ6/trunk/libf/phylmd/call_param_replay.f90

    r5268 r5390  
    33   stop 'In call_param_replay : You should run replay_equip.sh before runing replay[13]d'
    44   return
    5    end
     5   end subroutine call_param_replay

  • TabularUnified LMDZ6/trunk/libf/phylmd/calltherm.F90

    r5291 r5390  
    548548      return
    549549
    550       end
     550      end subroutine calltherm

  • TabularUnified LMDZ6/trunk/libf/phylmd/diag_slp.f90

    r5268 r5390  
    4343!
    4444  RETURN
    45   END
     45  END SUBROUTINE diag_slp

  • TabularUnified LMDZ6/trunk/libf/phylmd/dyn1d/1DUTILS.h

    r5310 r5390  
    644644!
    645645      RETURN
    646       END
     646      END SUBROUTINE conf_unicol
    647647!
    648648! $Id: dyn1deta0.F 1279 2010/07/30 A Lahellec$
    … …  
    793793!
    794794      RETURN
    795       END
     795      END SUBROUTINE dyn1deta0
    796796!
    797797! $Id: dyn1dredem.F 1279 2010/07/29 A Lahellec$
    … …  
    945945!
    946946      RETURN
    947       END
     947      END SUBROUTINE dyn1dredem
     948
    948949      SUBROUTINE gr_fi_dyn(nfield,ngrid,im,jm,pfi,pdyn)
    949950      IMPLICIT NONE
    … …  
    10421043!
    10431044      RETURN
    1044       END
     1045      END SUBROUTINE gr_fi_dyn
    10451046
    10461047      SUBROUTINE gr_dyn_fi(nfield,im,jm,ngrid,pdyn,pfi)
    … …  
    10791080
    10801081      RETURN
    1081       END
     1082      END SUBROUTINE gr_dyn_fi
    10821083
    10831084      SUBROUTINE disvert0(pa,preff,ap,bp,dpres,presnivs,nivsigs,nivsig)
    … …  
    12311232
    12321233      RETURN
    1233       END
     1234      END SUBROUTINE disvert0
    12341235
    12351236!!======================================================================
    … …  
    12961297
    12971298      return
    1298       end
     1299      end subroutine advect_vert
    12991300
    13001301!===============================================================
    … …  
    13741375!fin itlmd
    13751376        return
    1376         end
     1377        END SUBROUTINE advect_va
     1378
    13771379!       SUBROUTINE lstendH(llm,omega,d_t_va,d_q_va,d_u_va,d_v_va,
    13781380       SUBROUTINE lstendH(llm,nqtot,omega,d_t_va,d_q_va,                        &
    … …  
    14571459
    14581460          return
    1459          end
     1461         end SUBROUTINE lstendH
    14601462
    14611463!======================================================================
    … …  
    15101512!
    15111513      RETURN
    1512       END
     1514      END Subroutine Nudge_RHT_init
    15131515
    15141516      Subroutine Nudge_UV_init (paprs,pplay,u,v,u_targ,v_targ)
    … …  
    15431545!
    15441546      RETURN
    1545       END
     1547      END Subroutine Nudge_UV_init
    15461548
    15471549      Subroutine Nudge_RHT (dtime,paprs,pplay,t_targ,rh_targ,t,q,          &
    … …  
    16331635!
    16341636      RETURN
    1635       END
     1637      END Subroutine Nudge_RHT
    16361638
    16371639      Subroutine Nudge_UV (dtime,paprs,pplay,u_targ,v_targ,u,v,          &
    … …  
    16891691!
    16901692      RETURN
    1691       END
     1693      END Subroutine Nudge_UV
    16921694
    16931695!=====================================================================
    … …  
    18971899
    18981900          return
    1899           end
     1901          end SUBROUTINE interp2_case_vertical
    19001902!*****************************************************************************
    19011903

  • TabularUnified LMDZ6/trunk/libf/phylmd/dyn1d/1Dconv.h

    r5348 r5390  
    455455999     continue
    456456        stop 'erreur lecture, file forcing.ctl'
    457         end
     457        end subroutine get_uvd
    458458
    459459      SUBROUTINE advect_tvl(dtime,zt,zq,vu_f,vv_f,t_f,q_f                   &
    … …  
    490490
    491491      return
    492       end
     492      end SUBROUTINE advect_tvl
    493493
    494494      SUBROUTINE copie(klevgcm,playgcm,psolgcm,file_forctl)
    … …  
    564564      write(*,*) ' '
    565565
    566       end
     566      end SUBROUTINE copie
     567
    567568      SUBROUTINE mesolupbis(file_forctl)
    568569      implicit none
    … …  
    638639!
    639640 999  stop 'erreur lecture des niveaux pression des donnees'
    640       end
     641      end SUBROUTINE mesolupbis
    641642
    642643      SUBROUTINE rdgrads(itape,icount,nl,z,ht,hq,hw,hu,hv,hthtur,hqtur,     &
    … …  
    708709
    709710      RETURN
    710       END
     711      END SUBROUTINE rdgrads
    711712
    712713      SUBROUTINE corresbis(psol)
    … …  
    783784!
    784785      return
    785       end
     786      end SUBROUTINE corresbis
     787
    786788      SUBROUTINE GETSCH(STR,DEL,TRM,NTH,SST,NCH)
    787789!***************************************************************
    … …  
    853855      ISPACE = ISPACE + IBLANK - INONBL + NSPACE
    854856      IF (ISPACE.LE.LENSPA)                         GO TO 100
    855   999 END
     857  999 END SUBROUTINE GETSCH
     858
    856859      FUNCTION INDEXC(STR,SSTR)
    857860!
    … …  
    875878      INDEXC = 0
    876879!
    877   999 END
     880  999 END FUNCTION INDEXC

  • TabularUnified LMDZ6/trunk/libf/phylmd/dyn1d/mod_1D_cases_read.f90

    r5302 r5390  
    10141014
    10151015        return
    1016         END
     1016        END SUBROUTINE interp_case_time
    10171017
    10181018!**********************************************************************************************

  • TabularUnified LMDZ6/trunk/libf/phylmd/dyn1d/old_1DUTILS_read_interp.h

    r5368 r5390  
    6161
    6262          return
    63           end
     63          end SUBROUTINE read_togacoare
    6464
    6565!-------------------------------------------------------------------------
    … …  
    9696
    9797          return
    98           end
     98          end SUBROUTINE read_sandu
    9999
    100100!=====================================================================
    … …  
    138138
    139139          return
    140           end
     140          end SUBROUTINE read_astex
    141141!=====================================================================
    142142      subroutine read_twpice(fich_twpice,nlevel,ntime                       &
    … …  
    533533
    534534       return
    535        end
     535       end subroutine catchaxis
    536536!=====================================================================
    537537
    … …  
    649649
    650650          return
    651           end
     651          end SUBROUTINE interp_sandu_vertical
    652652!=====================================================================
    653653       SUBROUTINE interp_astex_vertical(play,nlev_astex,plev_prof          &
    … …  
    771771
    772772          return
    773           end
     773          end SUBROUTINE interp_astex_vertical
    774774
    775775!======================================================================
    … …  
    935935
    936936          return
    937           end
     937          end SUBROUTINE read_rico
    938938
    939939!======================================================================
    … …  
    10111011
    10121012        return
    1013         END
     1013        END SUBROUTINE interp_sandu_time
    10141014!=====================================================================
    10151015!-------------------------------------------------------------------------
    … …  
    10481048
    10491049          return
    1050           end
     1050          end SUBROUTINE read_armcu
    10511051
    10521052!=====================================================================
    … …  
    11691169 
    11701170          return
    1171           end
     1171          end SUBROUTINE interp_toga_vertical
    11721172 
    11731173!=====================================================================
    … …  
    13311331 
    13321332          return
    1333           end
     1333          end SUBROUTINE interp_case_vertical
    13341334!*****************************************************************************
    13351335!=====================================================================
    … …  
    14551455 
    14561456          return
    1457           end
     1457          end SUBROUTINE interp_dice_vertical
    14581458
    14591459!======================================================================
    … …  
    15471547
    15481548        return
    1549         END
     1549        END SUBROUTINE interp_astex_time
    15501550
    15511551!======================================================================
    … …  
    16861686
    16871687        return
    1688         END
     1688        END SUBROUTINE interp_toga_time
    16891689
    16901690!======================================================================
    … …  
    18021802
    18031803        return
    1804         END
     1804        END SUBROUTINE interp_dice_time
    18051805
    18061806!======================================================================
    … …  
    18881888        tg_prof=tg_gabls4(it_gabls42)-frac*(tg_gabls4(it_gabls42)-tg_gabls4(it_gabls41))
    18891889        return
    1890         END
     1890        END SUBROUTINE interp_gabls4_time
    18911891
    18921892!======================================================================
    … …  
    19671967
    19681968        return
    1969         END
     1969        END SUBROUTINE interp_armcu_time
    19701970
    19711971!=====================================================================
    … …  
    20432043
    20442044        return
    2045         end
     2045        end subroutine readprofiles
    20462046!======================================================================
    20472047      subroutine readprofile_sandu(nlev_max,kmax,height,pprof,tprof,       &
    … …  
    20742074
    20752075        return
    2076         end
     2076        end subroutine readprofile_sandu
    20772077
    20782078!======================================================================
    … …  
    21062106
    21072107        return
    2108         end
     2108        end subroutine readprofile_astex
    21092109
    21102110
    … …  
    21632163
    21642164        return
    2165         end
     2165        end subroutine readprofile_armcu
    21662166
    21672167!=====================================================================

  • TabularUnified LMDZ6/trunk/libf/phylmd/dyn1d/replay1d.f90

    r5310 r5390  
    128128 
    129129      RETURN
    130       END
     130      END SUBROUTINE gr_dyn_fi

  • TabularUnified LMDZ6/trunk/libf/phylmd/ener_conserv.f90

    r5296 r5390  
    267267RETURN
    268268
    269 END
     269END SUBROUTINE ener_conserv

  • TabularUnified LMDZ6/trunk/libf/phylmd/evappot.f90

    r5285 r5390  
    4141RETURN
    4242
    43 END
     43END SUBROUTINE evappot

  • TabularUnified LMDZ6/trunk/libf/phylmd/grid_index.f90

    r5268 r5390  
    1919enddo
    2020return
    21 end
     21end function grid_index

  • TabularUnified LMDZ6/trunk/libf/phylmd/iophys.F90

    r5291 r5390  
    6666
    6767      return
    68       end
     68      end subroutine iophys_ecrit
    6969
    7070!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
    … …  
    184184!$OMP END MASTER
    185185
    186       END
     186      END SUBROUTINE iophys_ini
    187187
    188188#ifdef und
    … …  
    207207      ENDDO
    208208      RETURN
    209       END
     209      END SUBROUTINE gr_fi_ecrit
    210210
    211211#endif
    … …  
    259259
    260260      return
    261       end
    262 
     261      end subroutine iotd_ecrit_seq
     262

  • TabularUnified LMDZ6/trunk/libf/phylmd/iotd_ecrit.f90

    r5291 r5390  
    179179
    180180
    181       end
     181      end subroutine iotd_ecrit

  • TabularUnified LMDZ6/trunk/libf/phylmd/iotd_fin.f90

    r5291 r5390  
    2020
    2121  ierr = nf90_close(nid)
    22 END
     22END SUBROUTINE iotd_fin

  • TabularUnified LMDZ6/trunk/libf/phylmd/iotd_ini.f90

    r5291 r5390  
    155155
    156156
    157       END
     157      END SUBROUTINE iotd_ini

  • TabularUnified LMDZ6/trunk/libf/phylmd/lmdz_ratqs_multi.f90

    r5284 r5390  
    207207     
    208208return
    209 end             
     209END SUBROUTINE ratqs_inter
    210210
    211211!------------------------------------------------------------------

  • TabularUnified LMDZ6/trunk/libf/phylmd/lmdz_thermcell_alim.f90

    r5268 r5390  
    124124
    125125RETURN
    126 END
     126END SUBROUTINE thermcell_alim
    127127END MODULE lmdz_thermcell_alim

  • TabularUnified LMDZ6/trunk/libf/phylmd/lmdz_thermcell_alp.f90

    r5285 r5390  
    425425
    426426      return
    427       end
     427    END SUBROUTINE thermcell_alp
    428428END MODULE lmdz_thermcell_alp

  • TabularUnified LMDZ6/trunk/libf/phylmd/lmdz_thermcell_closure.f90

    r5268 r5390  
    7272
    7373 RETURN
    74       end
     74END SUBROUTINE thermcell_closure
    7575END MODULE lmdz_thermcell_closure

  • TabularUnified LMDZ6/trunk/libf/phylmd/lmdz_thermcell_down.f90

    r5268 r5390  
    214214
    215215 RETURN
    216    END
     216END SUBROUTINE thermcell_updown_dq
    217217
    218218!=========================================================================
    … …  
    301301!
    302302 RETURN
    303    END
     303END SUBROUTINE thermcell_down
    304304END MODULE lmdz_thermcell_down

  • TabularUnified LMDZ6/trunk/libf/phylmd/lmdz_thermcell_dq.F90

    r4590 r5390  
    150150endif ! impl=-1
    151151RETURN
    152 end
     152end subroutine thermcell_dq
    153153
    154154
    … …  
    328328
    329329      return
    330       end
     330    end subroutine thermcell_dq_o
    331331END MODULE lmdz_thermcell_dq

  • TabularUnified LMDZ6/trunk/libf/phylmd/lmdz_thermcell_dry.f90

    r5268 r5390  
    1515! Le calcul pourrait etre sans doute simplifier.
    1616! La temperature potentielle virtuelle dans la panache ascendant est
    17 ! la temperature potentielle virtuelle pondérée par alim_star.
     17! la temperature potentielle virtuelle ponderee par alim_star.
    1818!--------------------------------------------------------------------------
    1919       USE lmdz_thermcell_ini, ONLY: prt_level, RG
    … …  
    9090! 1. le flux de masse en haut  f_star(ig,l+1)
    9191! 2. la temperature potentielle virtuelle dans la couche ztva(ig,l)
    92 ! 3. la vitesse au carré en haut zw2(ig,l+1)
     92! 3. la vitesse au carre en haut zw2(ig,l+1)
    9393!------------------------------------------------------------------------
    9494
    … …  
    166166
    167167 RETURN
    168       END
     168      END SUBROUTINE thermcell_dry
    169169END MODULE lmdz_thermcell_dry

  • TabularUnified LMDZ6/trunk/libf/phylmd/lmdz_thermcell_dtke.f90

    r5268 r5390  
    121121
    122122      return
    123       end
     123      end subroutine thermcell_dtke
    124124END MODULE lmdz_thermcell_dtke

  • TabularUnified LMDZ6/trunk/libf/phylmd/lmdz_thermcell_dv2.f90

    r5268 r5390  
    113113               zf2=1.
    114114
    115 !  la première fois on multiplie le coefficient de freinage
     115!  la premiere fois on multiplie le coefficient de freinage
    116116!  par le module du vent dans la couche en dessous.
    117117!  Mais pourquoi donc ???
    … …  
    194194
    195195      return
    196       end
     196      end subroutine thermcell_dv2
    197197END MODULE lmdz_thermcell_dv2

  • TabularUnified LMDZ6/trunk/libf/phylmd/lmdz_thermcell_env.f90

    r5268 r5390  
    9595 
    9696 RETURN
    97    END
     97   END SUBROUTINE thermcell_env
    9898END MODULE lmdz_thermcell_env

  • TabularUnified LMDZ6/trunk/libf/phylmd/lmdz_thermcell_flux2.f90

    r5268 r5390  
    512512
    513513 RETURN
    514       end
     514      END SUBROUTINE thermcell_flux2
    515515END MODULE lmdz_thermcell_flux2

  • TabularUnified LMDZ6/trunk/libf/phylmd/lmdz_thermcell_height.f90

    r5268 r5390  
    3939      enddo
    4040
    41 ! On traite le cas particulier qu'il faudrait éviter ou le thermique
     41! On traite le cas particulier qu'il faudrait eviter ou le thermique
    4242! atteind le haut du modele ...
    4343      do ig=1,ngrid
    … …  
    169169!
    170170 RETURN
    171       end
     171      END SUBROUTINE thermcell_height
    172172END MODULE lmdz_thermcell_height

  • TabularUnified LMDZ6/trunk/libf/phylmd/lmdz_thermcell_main.F90

    r4843 r5390  
    862862
    863863      return
    864       end
     864    end subroutine test_ltherm
    865865
    866866! nrlmd le 10/04/2012   Transport de la TKE par le thermique moyen pour la fermeture en ALP
    … …  
    987987      return
    988988!!! fin nrlmd le 10/04/2012
    989      end
     989    end subroutine thermcell_tke_transport
    990990
    991991END MODULE lmdz_thermcell_main

  • TabularUnified LMDZ6/trunk/libf/phylmd/lmdz_thermcell_plume.F90

    r4590 r5390  
    451451
    452452 RETURN
    453      end
     453     END SUBROUTINE thermcell_plume
    454454END MODULE lmdz_thermcell_plume

  • TabularUnified LMDZ6/trunk/libf/phylmd/lmdz_thermcell_plume_6A.F90

    r5029 r5390  
    697697
    698698 RETURN
    699      end
     699     END SUBROUTINE thermcell_plume_6A
    700700
    701701
    … …  
    11151115
    11161116     return
    1117      end
     1117     END SUBROUTINE thermcell_plume_5B
    11181118END MODULE lmdz_thermcell_plume_6A

  • TabularUnified LMDZ6/trunk/libf/phylmd/lmdz_thermcell_qsat.f90

    r5285 r5390  
    9797
    9898return
    99 end
     99end subroutine thermcell_qsat
    100100END MODULE lmdz_thermcell_qsat

  • TabularUnified LMDZ6/trunk/libf/phylmd/o3_chem_m.f90

    r5268 r5390  
    2424
    2525    integer, intent(in):: julien ! jour julien, 1 <= julien <= 360
    26     real, intent(in):: gmtime ! heure de la journée en fraction de jour
     26    real, intent(in):: gmtime ! heure de la journee en fraction de jour
    2727    real, intent(in):: t_seri(:, :) ! (klon, nbp_lev) temperature, in K
    2828
    … …  
    5959    real earth_long
    6060    ! (longitude vraie de la Terre dans son orbite solaire, par
    61     ! rapport au point vernal (21 mars), en degrés)
     61    ! rapport au point vernal (21 mars), en degres)
    6262
    6363    real pmu0(klon) ! mean of cosine of solar zenith angle during "pdtphys"

  • TabularUnified LMDZ6/trunk/libf/phylmd/perturb_radlwsw.f90

    r5301 r5390  
    2424!
    2525      RETURN
    26       END
     26      END SUBROUTINE perturb_radlwsw
    2727

  • TabularUnified LMDZ6/trunk/libf/phylmd/print_debug_phys.f90

    r5268 r5390  
    1919
    2020RETURN
    21 END
     21END SUBROUTINE print_debug_phys

  • TabularUnified LMDZ6/trunk/libf/phylmd/qsat_seawater.f90

    r5268 r5390  
    4848!!      Zeng, X., Zhao, M., and Dickinson, R. E., 1998 : Intercomparaison of bulk
    4949!!      aerodynamic algorithm for the computation of sea surface fluxes using
    50 !!      TOGA COARE and TAO data. Journal of Climate, vol 11, n°10, pp 2628--2644
     50!!      TOGA COARE and TAO data. Journal of Climate, vol 11, nb 10, pp 2628--2644
    5151!!
    5252!!

  • TabularUnified LMDZ6/trunk/libf/phylmd/qsat_seawater2.f90

    r5268 r5390  
    3434!!    ---------
    3535!!      Weiss, R.F., and Price, B.A., 1980 : Nitrous oxide solubility in water
    36 !!      and seawater. Marine Chemistry, n°8, pp 347-359.
     36!!      and seawater. Marine Chemistry, nb 8, pp 347-359.
    3737!!
    3838!!

  • TabularUnified LMDZ6/trunk/libf/phylmd/qsatseaw_1D.f90

    r5268 r5390  
    4848!!      Zeng, X., Zhao, M., and Dickinson, R. E., 1998 : Intercomparaison of bulk
    4949!!      aerodynamic algorithm for the computation of sea surface fluxes using
    50 !!      TOGA COARE and TAO data. Journal of Climate, vol 11, n�10, pp 2628--2644
     50!!      TOGA COARE and TAO data. Journal of Climate, vol 11, nb 10, pp 2628--2644
    5151!!
    5252!!

  • TabularUnified LMDZ6/trunk/libf/phylmd/rrtm/abor1.F90

    r1990 r5390  
    88
    99return
    10 end
     10end SUBROUTINE ABOR1

  • TabularUnified LMDZ6/trunk/libf/phylmd/rrtm/dates.F90

    r1990 r5390  
    5252
    5353IMPLICIT NONE
    54 end
     54end subroutine dates_demo
    5555subroutine date_plus_ech(kan,kmo,kqu,psssss,pstati,cdtit)
    5656! --------------------------------------------------------------
    … …  
    157157        &,' VALID ',iquv,'.',imov,'.',ianv,' ',ihev,':',imiv,' UTC'
    158158endif
    159 end
     159end subroutine date_plus_ech
     160
    160161subroutine datc(kaaaa,kmm,kqq,khh,kmi,kss,kjs,cdjs,cddt)
    161162! --------------------------------------------------------------
    … …  
    245246write(cddt,fmt='(i4.4,a,2(i2.2,a),2a,i2.2,a,i2.2,a,i2.2)') &
    246247&kaaaa,'_',kmm,'_',kqq,'_',cdjs,'_',khh,':',kmi,':',kss
    247 end
     248end subroutine datc
     249
    248250subroutine amqhms_vers_dj(kaaaa,kmm,kqq,khh,kmn,ps,pdj)
    249251! --------------------------------------------------------------------------
    … …  
    298300pdj=2451545.0- 0.5 +real(iecart)+real(khh)/24. &
    299301& +real(kmn)/1440.+ps/86400.
    300 end
     302end subroutine amqhms_vers_dj
     303
    301304subroutine daplus(kdat1,kopt,kdelt,kdat2)
    302305! --------------------------------------------------------------------------
    … …  
    350353igre=igre+kdelt
    351354call gregoi(igre,kopt,kdat2)
    352 end
     355end subroutine daplus
     356
    353357subroutine daplusj(k1,kec,k2)
    354358! --------------------------------------------------------------
    … …  
    385389INTEGER(KIND=4) :: KEC
    386390call daplus(k1,1,kec,k2)
    387 end
     391end subroutine daplusj
     392
    388393subroutine dapluss(cd1,kec,cd2)
    389394! --------------------------------------------------------------
    … …  
    462467is2=ireste
    463468write(cd2,fmt='(i8,3i2.2)') iamq2,ih2,im2,is2
    464 end
     469end subroutine dapluss
     470
    465471subroutine dj_vers_amqhms(pdj,kaaaa,kmm,kqq,khh,kmn,ps)
    466472! --------------------------------------------------------------------------
    … …  
    536542kmn=int(zfrac)
    537543ps=(zfrac-real(kmn))*60.
    538 end
     544end subroutine dj_vers_amqhms
     545
    539546subroutine dj_vers_amqhmsree(pdj,pgrer)
    540547! --------------------------------------------------------------------------
    … …  
    575582& + real(iqq)+real(ihh)/100. &
    576583& + real(imn)/10000.+zs/1.E+06
    577 end
     584end subroutine dj_vers_amqhmsree
     585
    578586subroutine amqhmsree_vers_dj(pgrer,pdj)
    579587! --------------------------------------------------------------------------
    … …  
    623631!
    624632call amqhms_vers_dj(iaaaa,imm,iqq,ihh,imn,zs,pdj)
    625 end
     633end subroutine amqhmsree_vers_dj
     634
    626635subroutine ecartd(kdat1,kdat2,kopt,kgre)
    627636! --------------------------------------------------------------------------
    … …  
    679688call gregod(kdat2,kopt,igre2)
    680689kgre=igre2-igre1
    681 end
     690end subroutine ecartd
     691
    682692subroutine ecartdj(k1,k2,kec)
    683693! --------------------------------------------------------------
    … …  
    718728INTEGER(KIND=4) :: KEC
    719729call ecartd(k1,k2,1,kec)
    720 end
     730end subroutine ecartdj
     731
    721732subroutine ecartds(cd1,cd2,kec)
    722733! --------------------------------------------------------------
    … …  
    778789!
    779790kec=kecq*86400+(ih2-ih1)*3600+(im2-im1)*60+is2-is1
    780 end
     791end subroutine ecartds
     792
    781793subroutine gregod(kdat,kopt,kgre)
    782794! --------------------------------------------------------------------------
    … …  
    944956! **      3. Difference in2-in1
    945957kgre=(in2-in1)*iconv+ifrjour
    946 end
     958end subroutine gregod
     959
    947960subroutine gregoi(kgre,kopt,kdat)
    948961! --------------------------------------------------------------------------
    … …  
    10931106endif
    10941107kdat=idat
    1095 end
     1108end subroutine gregoi
    10961109function ijoursem(kdat)
    10971110! --------------------------------------------------------------------------
    … …  
    11251138iecart=igre-igredim
    11261139ijoursem=modulo(iecart,7)
    1127 end
     1140end function ijoursem
     1141
    11281142subroutine qqmmaa(kdatd,cdresd)
    11291143! --------------------------------------------------------------------------
    … …  
    11721186write(cdresd,fmt='(a3,a1,i2,a1,i2.2,a1,i4.4)')&
    11731187&cljour,' ',iqq,'.',imm,'.',ian
    1174 end
     1188end subroutine qqmmaa
     1189
    11751190subroutine quant(kdate,kquant)
    11761191! --------------------------------------------------------------
    … …  
    12001215call ecartdj(ibase,kdate,iec)
    12011216kquant=iec+1
    1202 end
     1217end subroutine quant

  • TabularUnified LMDZ6/trunk/libf/phylmd/rrtm/dump2ds.F

    r1990 r5390  
    111111      print*
    112112      RETURN
    113       END
     113      END SUBROUTINE dump2ds

  • TabularUnified LMDZ6/trunk/libf/phylmd/rrtm/set99.F

    r5371 r5390  
    5959      IFAX(10)=N
    6060      RETURN
    61       END
     61      END SUBROUTINE SET99

  • TabularUnified LMDZ6/trunk/libf/phylmd/slab_heat_transp_mod.f90

    r5268 r5390  
    409409      ELSE
    410410          alpha(:)=alpham
    411           ! Tsurf-Tdeep ~ 10° in the Tropics
     411          ! Tsurf-Tdeep ~ 10deg in the Tropics
    412412      ENDIF
    413413

  • TabularUnified LMDZ6/trunk/libf/phylmd/water_int.f90

    r5268 r5390  
    2121
    2222RETURN
    23 END
     23END SUBROUTINE water_int

  • TabularUnified LMDZ6/trunk/libf/phylmd/yamada_c.F90

    r5285 r5390  
    490490!  print*,'OK2'
    491491      RETURN
    492       END
     492      END SUBROUTINE yamada_c
Note: See TracChangeset for help on using the changeset viewer.