Changeset 677 for LMDZ4/trunk


Ignore:
Timestamp:
Jan 27, 2006, 4:14:22 PM (18 years ago)
Author:
Laurent Fairhead
Message:

Differentes corrections pour g95
LF

Location:
LMDZ4/trunk/libf
Files:
6 edited

Legend:

Unmodified
Added
Removed

  • LMDZ4/trunk/libf/bibio/write_field.F90

    r631 r677  
    227227        write (id,spacing)
    228228      else
    229         write (id,'')
     229        write (id,'("")')
    230230        write (id,spacing)
    231231      endif

  • LMDZ4/trunk/libf/dyn3d/conf_dat2d.F

    r524 r677  
    215215       ENDDO
    216216
     217      deallocate(xtemp)
     218      deallocate(ytemp)
     219
    217220      RETURN
    218221      END

  • LMDZ4/trunk/libf/dyn3d/limit_netcdf.F

    r524 r677  
    452452
    453453      ierr = NF_OPEN('amipbc_sic_1x1.nc', NF_NOWRITE, ncid)
    454       if (ierr.ne.0) then
    455         print *, NF_STRERROR(ierr)
    456         STOP
     454      if (ierr.ne.0) THEN
     455        ierr = NF_OPEN('amipbc_sic_1x1_clim.nc', NF_NOWRITE, ncid)
     456        if (ierr.ne.0) THEN
     457          print *, NF_STRERROR(ierr)
     458          STOP
     459        endif
    457460      ENDIF
    458461
    … …  
    775778c     ierr = NF_OPEN('AMIP_SST.nc', NF_NOWRITE, ncid)
    776779      ierr = NF_OPEN('amipbc_sst_1x1.nc', NF_NOWRITE, ncid)
    777       if (ierr.ne.0) then
    778         print *, NF_STRERROR(ierr)
    779         STOP
     780      if (ierr.ne.0) THEN
     781        ierr = NF_OPEN('amipbc_sst_1x1_clim.nc', NF_NOWRITE, ncid)
     782        if (ierr.ne.0) THEN
     783          print *, NF_STRERROR(ierr)
     784          STOP
     785        endif
    780786      ENDIF
    781787

  • LMDZ4/trunk/libf/dyn3d/startvar.F

    r644 r677  
    10541054      REAL, ALLOCATABLE :: var_tmp2d(:,:), var_tmp3d(:,:,:)
    10551055      REAL, ALLOCATABLE :: ax(:), ay(:), yder(:)
    1056        REAL, ALLOCATABLE :: varrr(:,:,:)
     1056!       REAL, ALLOCATABLE :: varrr(:,:,:)
    10571057      INTEGER, ALLOCATABLE :: lind(:)
    10581058    !
    … …  
    10621062          ALLOCATE(var_ana3d(iml_dyn, jml_dyn, llm_dyn))
    10631063      ENDIF
    1064           ALLOCATE(varrr(iml_dyn, jml_dyn, llm_dyn))
     1064!          ALLOCATE(varrr(iml_dyn, jml_dyn, llm_dyn))
    10651065    !
    10661066    !
    … …  
    11731173
    11741174      DEALLOCATE(lon_rad)
     1175      DEALLOCATE(lon_ini)
    11751176      DEALLOCATE(lat_rad)
     1177      DEALLOCATE(lat_ini)
     1178      DEALLOCATE(lev_dyn)
    11761179      DEALLOCATE(var_tmp2d)
    11771180      DEALLOCATE(var_tmp3d)

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

    r674 r677  
    12361236         SAVE rain_con
    12371237         SAVE snow_con
    1238          SAVE bl95_b0
    1239          SAVE bl95_b1
    12401238         SAVE topswai
    12411239         SAVE topswad
    … …  
    12461244         SAVE rnebcon0
    12471245         SAVE clwcon0
    1248          SAVE rnebcon
    1249          SAVE clwcon
    12501246         SAVE paire_ter
    12511247         SAVE nhistoW

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

    r673 r677  
    156156      logical lafin          ! le flag de la fin de la physique
    157157c Olivia     
    158       integer isplit,nsplit
     158      integer nsplit
    159159      REAL pmflxr(klon,klev+1), pmflxs(klon,klev+1)   !--lessivage convection
    160160      REAL prfl(klon,klev+1),   psfl(klon,klev+1)     !--lessivage large-scale
    … …  
    163163      REAL flxmass_w(klon,klev)
    164164#endif
    165       integer iflag_con
     165c      integer iflag_con
    166166
    167167cAA Rem : nbtr : nombre de vrais traceurs est defini dans dimphy.h
Note: See TracChangeset for help on using the changeset viewer.