Changeset 594


Ignore:
Timestamp:
Feb 24, 2005, 10:58:18 AM (19 years ago)
Author:
Laurent Fairhead
Message:

Bugs introduit par la synchro avec LOOP je sais pas comment GG
LF

Location:
LMDZ4/trunk/libf/phylmd
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • LMDZ4/trunk/libf/phylmd/interface_surf.F90

    r590 r594  
    13931393#include "inc_cpl.h"
    13941394#include "temps.inc"
     1395#include "iniprint.h"
    13951396!
    13961397! Initialisation

  • LMDZ4/trunk/libf/phylmd/physiq.F

    r593 r594  
    373373      SAVE nhistoWt
    374374
    375       INTEGER linv
    376375      INTEGER pct_ocean(klon,nbregdyn)
    377376      REAL rlonPOS(klon)

  • LMDZ4/trunk/libf/phylmd/write_histhf.h

    r591 r594  
    274274     $     zx_tmp_2d,iim*jjmp1,ndex2d)
    275275c
    276       CALL gr_fi_ecrit(1, klon,iim,jjmp1, swdownor , zx_tmp_2d)
     276      zx_tmp_fi2d(1:klon) = solsw(1:klon)/(1.-albsol(1:klon))
     277      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)
    277278      CALL histwrite(nid_hf,"SWdownOR",itau_w,
    278279     $     zx_tmp_2d,iim*jjmp1,ndex2d)
Note: See TracChangeset for help on using the changeset viewer.