Changeset 1167


Ignore:
Timestamp:
May 29, 2009, 3:37:46 PM (16 years ago)
Author:
Laurent Fairhead
Message:

Les options de compilation pour g95 et pgf90 avec makegcm FH
une correction dans guide_p.F AJ
LF

Location:
LMDZ4/branches/LMDZ4-dev
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • LMDZ4/branches/LMDZ4-dev/libf/dyn3d/comvert.h

    r524 r1167  
    11!
    2 ! $Header$
     2! $Id$
    33!
    4 c-----------------------------------------------------------------------
    5 c   INCLUDE 'comvert.h'
     4!-----------------------------------------------------------------------
     5!   INCLUDE 'comvert.h'
    66
    7       COMMON/comvert/ap(llm+1),bp(llm+1),presnivs(llm),dpres(llm) ,
    8      ,               pa,preff,nivsigs(llm),nivsig(llm+1)
     7      COMMON/comvert/ap(llm+1),bp(llm+1),presnivs(llm),dpres(llm),      &
     8     &               pa,preff,nivsigs(llm),nivsig(llm+1)
    99
    1010      REAL ap,bp,presnivs,dpres,pa,preff,nivsigs,nivsig
    1111
    12 c-----------------------------------------------------------------------
     12 !-----------------------------------------------------------------------

  • LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar/guide_p.F

    r1135 r1167  
    11!
    2 ! $Header$
     2! $Id$
    33!
    44      subroutine guide_pp(itau,ucov,vcov,teta,q,masse,ps)
    … …  
    254254c
    255255          endif  !guide_modele
    256          endif  !mpi_rank
     256cAJ-b         endif  !mpi_rank
    257257         if (ncep) then
    258258          status=NF_INQ_DIMID(ncidpl,'LEVEL',rid)
    … …  
    263263         print *,'nlev guide', nlev
    264264         rcod = nf90_close(ncidpl)
     265cAJ-e
     266         endif !mpi_rank
     267cAJ-e
    265268c   Lecture du premier etat des reanalyses.
    266269         call Gather_Field(ps,ip1jmp1,1,0)

  • LMDZ4/branches/LMDZ4-dev/makegcm

    r1140 r1167  
    11#!/bin/csh
    22#
    3 # $Header$
     3# $Id$
    44#
    55#set verbose echo
    … …  
    2727
    2828set FC_LINUX=g95
    29 #set FC_LINUX=pgf90
     29if ( FC_LINUX == g95 ) then
     30   set OPT_LINUX="-i4 -r8 -O3"
     31else
     32   set OPT_LINUX="-O2 -Munroll -Mnoframe -Mautoinline -Mcache_align"
     33endif
     34
    3035
    3136########################################################################
    … …  
    254259else if $LINUX then
    255260#################
    256    if ( $FC_LINUX == "pgf90" ) then
    257      set optim="-fast "
    258      set optim90=" -fast "
    259      set optimtru90=" -fast -c -Mfree "
    260 #     set optim=" "
    261 #     set optim90="  "
    262 #     set optimtru90=" -c -Mfree "
    263    else if ( $FC_LINUX == 'g95' ) then
     261   if ( $FC_LINUX == pgf90 || $FC_LINUX == g95 ) then
    264262     set optim=" $OPT_LINUX "
    265263     set optim90=" $OPT_LINUX "
Note: See TracChangeset for help on using the changeset viewer.