Changeset 1048 for trunk/LMDZ.TITAN/libf


Ignore:
Timestamp:
Sep 23, 2013, 7:02:50 PM (11 years ago)
Author:
slebonnois
Message:

SL: update pour divers details titan + quelques modifs arch et makelmdz

Location:
trunk/LMDZ.TITAN/libf/phytitan
Files:
9 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.TITAN/libf/phytitan/YOMCST.h

    r102 r1048  
    1919      REAL R,RMD,RMV,RD,RV,RCPD,RCPV,RCVD,RCVV
    2020      REAL RKAPPA,RETV
    21 ! ADAPTATION GCM POUR CP(T)
    22       real cpdet
    23       external cpdet
    2421! A1.5,6 Thermodynamic liquid,solid phases
    2522      REAL RCW,RCS

  • trunk/LMDZ.TITAN/libf/phytitan/ajsec.F

    r102 r1048  
    77
    88      use dimphy
     9      use cpdet_mod, only: t2tpot, tpot2t
    910      IMPLICIT none
    1011c======================================================================

  • trunk/LMDZ.TITAN/libf/phytitan/clesphys.h

    r495 r1048  
    3838
    3939       COMMON/clesphys_r/                                               &
    40      &     ecritphy, solaire, z0, lmixmin, ksta, inertie,               &
     40     &     ecritphy, solaire, z0, lmixmin, ksta, inertie, emis,         &
    4141     &     tx,tcorrect,p_prodaer,xnuf
    4242

  • trunk/LMDZ.TITAN/libf/phytitan/clmain.F

    r495 r1048  
    3535      USE interface_surf
    3636      use dimphy
     37      use cpdet_mod, only: t2tpot
    3738      IMPLICIT none
    3839c======================================================================
    … …  
    342343         y_cd_m(1:knon) = ycoefh(1:knon,1)
    343344         endif
     345
    344346         call ustarhb(knon,yu,yv,y_cd_m, yustar)
    345347
    … …  
    478480      USE interface_surf
    479481      use dimphy
     482      use cpdet_mod, only: t2tpot,tpot2t,cpdet
    480483
    481484      IMPLICIT none
    … …  
    886889
    887890      use dimphy
     891      use cpdet_mod, only: cpdet,t2tpot
    888892      IMPLICIT none
    889893c======================================================================
    … …  
    11691173
    11701174      use dimphy
     1175      use cpdet_mod, only: cpdet
    11711176      IMPLICIT none
    11721177c======================================================================

  • trunk/LMDZ.TITAN/libf/phytitan/comcstfi.h

    r3 r1048  
    66
    77      REAL pi,rad,g,r,cpp,rcp,dtphys,daysec,mugaz,omeg
    8       real cpdet
    9       external cpdet
    108
    119c-----------------------------------------------------------------------

  • trunk/LMDZ.TITAN/libf/phytitan/diagphy.F

    r102 r1048  
    209209 
    210210      use dimphy
     211      use cpdet_mod, only: cpdet
    211212      IMPLICIT NONE
    212213C

  • trunk/LMDZ.TITAN/libf/phytitan/interface_surf.F90

    r495 r1048  
    4545      & tsol_rad, tsurf_new, alb_new)
    4646
     47      use write_field_phy
     48      use cpdet_mod, only: cpdet
     49
     50      IMPLICIT none
    4751
    4852! Cette routine sert d'aiguillage entre l'atmosphere et la surface en general
    … …  
    141145
    142146  if (check) write(*,*) 'Entree ', modname
    143  
     147
    144148! Initialisations diverses
    145149!
    … …  
    149153
    150154! ADAPTATION GCM POUR CP(T)
    151        zcp(1:klon) = cpdet(tsurf(1:klon))
     155       do ii=1,klon
     156         zcp(ii)=cpdet(tsurf(ii))
     157       enddo
    152158
    153159       IF (soil_model) THEN
    154160           CALL soil(dtime, knon, tsurf, tsoil,soilcap, soilflux)
    155161           cal(1:knon) = zcp(1:knon) / soilcap(1:knon)
     162! for tests:
     163!  call writefield_phy('interfsurf_hq_zcp',zcp,1)
     164!  call writefield_phy('interfsurf_hq_cal',cal,1)
     165!  call writefield_phy('interfsurf_hq_soilcap',soilcap,1)
    156166!       print*,"DIAGNOSTIC SOIL"
    157167!       print*,"soilcap=",soilcap
    … …  
    186196     & tsurf_new, fluxsens, dflux_s)
    187197
     198  use write_field_phy
     199  use cpdet_mod, only: t2tpot, tpot2t
     200
     201  IMPLICIT none
     202
    188203! Cette routine calcule les fluxs en h a l'interface et eventuellement
    189204! une temperature de surface (au cas ou ok_veget = false)
    … …  
    317332  ENDDO
    318333
     334! for tests: write output fields...
     335!  call writefield_phy('calcul_fluxs_d_ts',d_ts,1)
     336!  call writefield_phy('calcul_fluxs_fluxsens',fluxsens,1)
     337!  call writefield_phy('calcul_fluxs_dflux_s',dflux_s,1)
     338
    319339  END SUBROUTINE calcul_fluxs
    320340!

  • trunk/LMDZ.TITAN/libf/phytitan/physiq.F

    r953 r1048  
    6161      use dimphy
    6262      USE comgeomphy
     63      use cpdet_mod, only: cpdet, t2tpot
    6364      IMPLICIT none
    6465c======================================================================
    … …  
    279280      REAL zday
    280281      REAL zls,zlsdeg,zlsm1
     282      save zlsm1
    281283c
    282284      INTEGER i, k, iq, ig, j, ll, l

  • trunk/LMDZ.TITAN/libf/phytitan/rcm1d.F

    r904 r1048  
    1 
    21      PROGRAM rcm1d
    32     
    … …  
    54      use control_mod
    65      use comgeomphy
     6      use cpdet_mod, only: ini_cpdet
    77      IMPLICIT NONE
    88
    … …  
    474474#include "../dyn3d/disvert_noterre.F"
    475475#include "../dyn3d/abort_gcm.F"
    476 #include "../dyn3d/dump2d.F"
    477 #include "../dyn3d/cpdet.F"
     476!#include "../dyn3d/dump2d.F"
    478477
    479478c***********************************************************************
Note: See TracChangeset for help on using the changeset viewer.