Ignore:
Timestamp:
Feb 13, 2009, 10:52:29 AM (16 years ago)
Author:
jghattas
Message:

Ajoute des variables de sorties, necessaires à l'evaluation du code radiatif, qui avaient disparu avec la reecriture.
Anne C/ Abderrahmane I

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ4/branches/LMDZ4-dev/libf/phylmd/phys_output_mod.F90

    r1083 r1095  
    318318  type(ctrl_out) :: o_rugs         = ctrl_out((/ 10, 10, 10, 1, 1 /),'rugs')
    319319
     320  type(ctrl_out) :: o_topswad      = ctrl_out((/ 4, 10, 10, 10, 10 /),'topswad')
     321  type(ctrl_out) :: o_topswai      = ctrl_out((/ 4, 10, 10, 10, 10 /),'topswai')
     322  type(ctrl_out) :: o_solswad      = ctrl_out((/ 4, 10, 10, 10, 10 /),'solswad')
     323  type(ctrl_out) :: o_solswai      = ctrl_out((/ 4, 10, 10, 10, 10 /),'solswai')
    320324!!!!!!!!!!!!!!!!!!!!!! 3D !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
    321325  type(ctrl_out) :: o_lwcon        = ctrl_out((/ 2, 5, 10, 10, 1 /),'lwcon')
     
    429433                              ctetaSTD,dtime, presnivs, ok_veget, &
    430434                              ocean, iflag_pbl,ok_mensuel,ok_journe, &
    431                               ok_hf,ok_instan,ok_LES)   
     435                              ok_hf,ok_instan,ok_LES,ok_ade,ok_aie)   
    432436
    433437  USE iophy
     
    447451  integer                               :: nbteta, nlevSTD, radpas
    448452  logical                               :: ok_mensuel, ok_journe, ok_hf, ok_instan
    449   logical                               :: ok_LES
     453  logical                               :: ok_LES,ok_ade,ok_aie
    450454  real                                  :: dtime
    451455  integer                               :: idayref
     
    677681     END DO
    678682
     683 IF (ok_ade) THEN
     684  CALL histdef2d(iff,o_topswad%flag,o_topswad%name, "ADE at TOA", "W/m2")
     685  CALL histdef2d(iff,o_solswad%flag,o_solswad%name, "ADE at SRF", "W/m2")
     686 ENDIF
     687
     688 IF (ok_aie) THEN
     689  CALL histdef2d(iff,o_topswai%flag,o_topswai%name, "AIE at TOA", "W/m2")
     690  CALL histdef2d(iff,o_solswai%flag,o_solswai%name, "AIE at SFR", "W/m2")
     691 ENDIF
     692
     693
    679694 CALL histdef2d(iff,o_albs%flag,o_albs%name, "Surface albedo", "-")
    680695 CALL histdef2d(iff,o_albslw%flag,o_albslw%name, "Surface albedo LW", "-")
Note: See TracChangeset for help on using the changeset viewer.