Ignore:
Timestamp:
07/16/12 10:24:35 (12 years ago)
Author:
ymipsl
Message:

Merge advection scheme from sarvesh in standard version

YM

File:
1 edited

Legend:

Unmodified
Added
Removed

  • codes/icosagcm/trunk/src/geometry.f90

    r15 r17  
    115115  USE transfert_mod 
    116116  USE vector 
     117  USE ioipsl 
    117118  IMPLICIT NONE 
    118     INTEGER,PARAMETER :: nb_it=3000 
     119    INTEGER :: nb_it=0 
    119120    TYPE(t_domain),POINTER :: d 
    120121    INTEGER :: ind,it,i,j,n,k 
    … …  
    124125    REAL(rstd) :: sum 
    125126    LOGICAL    :: check 
     127     
     128     
     129    CALL getin('optim_it',nb_it) 
    126130     
    127131    DO ind=1,ndomain 
Note: See TracChangeset for help on using the changeset viewer.