Changeset 4576


Ignore:
Timestamp:
Jun 15, 2023, 10:25:55 AM (11 months ago)
Author:
Laurent Fairhead
Message:

Forgot modifications in phylmdiso
LF

Location:
LMDZ6/trunk/libf/phylmdiso
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/phylmdiso/phys_local_var_mod.F90

    r4562 r4576  
    317317!$OMP THREADPRIVATE(sens, flwp, fiwp)
    318318!!
     319!FC
     320      REAL,ALLOCATABLE,SAVE,DIMENSION(:,:) :: zxfluxt, zxfluxq
     321!$OMP THREADPRIVATE(zxfluxt, zxfluxq)
     322!FC
    319323!!         Wake variables
    320324      REAL,ALLOCATABLE,SAVE,DIMENSION(:)            :: alp_wake
    … …  
    10231027      ALLOCATE(wfevap(klon, nbsrf), wfrain(klon,nbsrf), wfsnow(klon, nbsrf))
    10241028      ALLOCATE(evap_pot(klon, nbsrf))
     1029! FC
     1030      ALLOCATE(zxfluxq(klon,klev),zxfluxt(klon,klev))
     1031!
    10251032!
    10261033!  Deep convective variables used in phytrac
    … …  
    13811388      DEALLOCATE(alp_bl_stat, n2, s2)
    13821389      DEALLOCATE(proba_notrig, random_notrig)
     1390!FC
     1391      DEALLOCATE(zxfluxq,zxfluxt)
    13831392
    13841393      DEALLOCATE(dnwd0)

  • LMDZ6/trunk/libf/phylmdiso/phys_output_ctrlout_mod.F90

    r4530 r4576  
    15511551  TYPE(ctrl_out), SAVE :: o_stratomask = ctrl_out((/ 2,  6, 10, 10, 10, 10, 11, 11, 11, 11/), &
    15521552    'stratomask', 'Stratospheric fraction', '1', (/ ('', i=1, 10) /))
     1553!FC
     1554  TYPE(ctrl_out), SAVE :: o_zxfluxt = ctrl_out((/ 2,  6, 10, 10, 10, 10, 11, 11, 11, 11/), &
     1555    'fluxt', 'flux h ', 'W/m2', (/ ('', i=1, 10) /))
     1556  TYPE(ctrl_out), SAVE :: o_zxfluxq = ctrl_out((/ 2,  6, 10, 10, 10, 10, 11, 11, 11, 11/), &
     1557    'fluxq', 'flux q ', 'kg/(s*m2)', (/ ('', i=1, 10) /))
    15531558!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
    15541559

  • LMDZ6/trunk/libf/phylmdiso/physiq_mod.F90

    r4562 r4576  
    360360       beta_prec,  &
    361361       rneb,  &
    362        zxsnow,snowhgt,qsnow,to_ice,sissnow,runoff,albsol3_lic
     362       zxsnow,snowhgt,qsnow,to_ice,sissnow,runoff,albsol3_lic, &
     363       zxfluxt,zxfluxq
    363364
    364365
    … …  
    916917    REAL fluxqbs(klon,klev, nbsrf)   ! flux turbulent de neige soufflee
    917918    !
    918     REAL zxfluxt(klon, klev)
    919     REAL zxfluxq(klon, klev)
     919    !FC    REAL zxfluxt(klon, klev)
     920    !FC    REAL zxfluxq(klon, klev)
    920921    REAL zxfluxqbs(klon,klev)
    921922    REAL zxfluxu(klon, klev)
Note: See TracChangeset for help on using the changeset viewer.