Ignore:
Timestamp:
Apr 22, 2010, 2:53:08 PM (14 years ago)
Author:
idelkadi
Message:
  • Corrections pour integrer de nouveaux champs de sorties
File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ4/branches/LMDZ4V5.0-dev/libf/phylmd/physiq.F

    r1356 r1369  
    12281228     &     alp_offset)
    12291229      call phys_state_var_init(read_climoz)
     1230      call phys_output_var_init
     1231
    12301232      print*, '================================================='
    12311233cIM for NMC files
    … …  
    12471249c         pmflxr=0.
    12481250c         pmflxs=0.
     1251        itau_con=0
    12491252        first=.false.
    12501253
    … …  
    21572160              pmfu(:,:)=upwd(:,:)+dnwd(:,:)
    21582161
     2162              do i = 1, klon
     2163                if (iflagctrl(i).le.1) itau_con(i)=itau_con(i)+1
     2164              enddo
     2165
    21592166          ELSE ! ok_cvl
    21602167c MAF conema3 ne contient pas les traceurs
Note: See TracChangeset for help on using the changeset viewer.