Changeset 545 for LMDZ.3.3/branches


Ignore:
Timestamp:
Sep 20, 2004, 5:02:46 PM (20 years ago)
Author:
lmdzadmin
Message:

Suite des modifs pour adaptation a Prism MED
LF

Location:
LMDZ.3.3/branches/rel-LF
Files:
5 edited

Legend:

Unmodified
Added
Removed
  • LMDZ.3.3/branches/rel-LF/libf/dyn3d/bilan_dyn.F

    r459 r545  
    111111      character*10 znom(ntr,nQ)
    112112      character*20 znoml(ntr,nQ)
     113cvg>>
     114      save znom, nom
     115cvg<<
    113116      character*10 zunites(ntr,nQ)
    114117      integer iave,itot,immc,itrs,istn
  • LMDZ.3.3/branches/rel-LF/libf/dyn3d/conf_gcm.F

    r431 r545  
    720720      write(tapeout,*)' nbapp_rad = ', nbapp_rad
    721721      write(tapeout,*)' iflag_con = ', iflag_con
    722       write(tapeout,*)' clonn = ', clonn
    723       write(tapeout,*)' clatt = ', clatt
     722      write(tapeout,*)' clonn = ', clon
     723      write(tapeout,*)' clatt = ', clat
    724724      write(tapeout,*)' grossismx = ', grossismx
    725725      write(tapeout,*)' grossismy = ', grossismy
  • LMDZ.3.3/branches/rel-LF/libf/dyn3d/diagedyn.F

    r431 r545  
    5555#include "dimensions.h"
    5656#include "paramet.h"
    57 #include "../phylmd/YOMCST.h"
    58 #include "../phylmd/YOETHF.h"
     57Cmed#include "../phylmd/YOMCST.h"
     58Cmed#include "../phylmd/YOETHF.h"
     59#include "YOMCST.h"
     60#include "YOETHF.h"
    5961C
    6062      INTEGER imjmp1
  • LMDZ.3.3/branches/rel-LF/libf/phylmd/interface_surf.F90

    r544 r545  
    13401340  INTEGER :: ndexct(iim*(jjm+1)),ndexcs(iim*(jjm+1))
    13411341  REAL :: zx_lon(iim,jjm+1), zx_lat(iim,jjm+1), zjulian
    1342   integer :: idayref, itau_w
     1342  integer :: idayref
     1343!med  integer :: itau_w
     1344  integer,save :: itau_w
    13431345#include "param_cou.h"
    13441346#include "inc_cpl.h"
  • LMDZ.3.3/branches/rel-LF/makegcm

    r531 r545  
    811811endif
    812812
     813if ($couple == true) then
     814  set optim=" $optim -DCPP_COUPLE"
     815  set optim90=" $optim90 -DCPP_COUPLE"
     816  set optimtru90=" $optimtru90 -DCPP_COUPLE"
     817endif
     818
    813819set link="$f90 $optim90"
    814820
Note: See TracChangeset for help on using the changeset viewer.