Changeset 6182


Ignore:
Timestamp:
Apr 21, 2026, 10:40:44 PM (12 days ago)
Author:
fhourdin
Message:

Changement des noms phylmdiso rayonnement

Location:
LMDZ6/trunk/libf
Files:
1 edited
6 moved

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/phylmd/output_physiqex_mod.f90

    r5451 r6182  
    4545integer,save :: nid_hist ! output file ID
    4646!$OMP THREADPRIVATE(nid_hist)
    47 integer, save :: itau=0
    48 !$OMP THREADPRIVATE(itau)
    4947
    5048integer, save :: ioex=1
    5149
    5250
    53 print*,'nnnnnnn ',nid_hist,debut,itau
    5451
    5552if(debut)then
    … …  
    6562
    6663
    67 itau=itau+1
    68 
    69 if (modulo(itau,iwrite_phys)==0) then
    70      call iophys_ecrit('temp',klev,'Temperature','K',t)
    71      call iophys_ecrit('u',klev,'zonal wind','m/s',u)
    72      call iophys_ecrit('v',klev,'meridinal wind','m/s',v)
    73      call iophys_ecrit('ps',1,'Surface pressure','Pa',paprs(:,1))
    74      call iophys_ecrit('qv',klev,'Water vapor specifiq content', 'kg/kg', qx(:,:,1))
    75      call iophys_ecrit('qc',klev,'Cloud liquid water specifiq content', 'kg/kg', qx(:,:,2))
    76      call iophys_ecrit('qi',klev,'Cloud solid water specifiq content', 'kg/kg', qx(:,:,3))
    77      call iophys_ecrit('CF',klev,'Cloud fraction', '0-1', cf)
    78      call iophys_ecrit('qr',klev,'Rain specifiq content', 'kg/kg', zqr)
    79      call iophys_ecrit('qs',klev,'Snow specifiq content', 'kg/kg', zqs)
    80      call iophys_ecrit('qg',klev,'Graupel specifiq content', 'kg/kg', zqg)
    81      call iophys_ecrit('TKE',klev,'TKE', 'm2/s2', ptke)
    82      call iophys_ecrit('theta',klev,'Temperature potentielle', 'K', theta)
    83 endif
     64call iophys_ecrit('temp',klev,'Temperature','K',t)
     65call iophys_ecrit('u',klev,'zonal wind','m/s',u)
     66call iophys_ecrit('v',klev,'meridinal wind','m/s',v)
     67call iophys_ecrit('ps',1,'Surface pressure','Pa',paprs(:,1))
     68call iophys_ecrit('qv',klev,'Water vapor specifiq content', 'kg/kg', qx(:,:,1))
     69call iophys_ecrit('qc',klev,'Cloud liquid water specifiq content', 'kg/kg', qx(:,:,2))
     70call iophys_ecrit('qi',klev,'Cloud solid water specifiq content', 'kg/kg', qx(:,:,3))
     71call iophys_ecrit('CF',klev,'Cloud fraction', '0-1', cf)
     72call iophys_ecrit('qr',klev,'Rain specifiq content', 'kg/kg', zqr)
     73call iophys_ecrit('qs',klev,'Snow specifiq content', 'kg/kg', zqs)
     74call iophys_ecrit('qg',klev,'Graupel specifiq content', 'kg/kg', zqg)
     75call iophys_ecrit('TKE',klev,'TKE', 'm2/s2', ptke)
     76call iophys_ecrit('theta',klev,'Temperature potentielle', 'K', theta)
    8477
    8578

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

    r6181 r6182  
    1 link ../phylmd/lmdz_call_ecrad_m.F90
     1link ../phylmd/lmdz_call_ecrad.F90

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

    r6181 r6182  
    1 link ../phylmd/lmdz_call_oldrad_m.F90
     1link ../phylmd/lmdz_call_oldrad.F90

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

    r6181 r6182  
    1 link ../phylmd/lmdz_call_rads_m.F90
     1link ../phylmd/lmdz_call_radiation.F90

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

    r6181 r6182  
    1 link ../phylmd/lmdz_call_rrtm_m.F90
     1link ../phylmd/lmdz_call_rrtm.F90

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

    r6181 r6182  
    1 link ../phylmd/lmdz_rad_out_m.F90
     1link ../phylmd/lmdz_radiation_post.F90

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

    r6181 r6182  
    1 link ../phylmd/lmdz_rad_ini_m.F90
     1link ../phylmd/lmdz_radiation_pre.F90
Note: See TracChangeset for help on using the changeset viewer.