Changeset 73 for codes/icosagcm/trunk


Ignore:
Timestamp:
08/02/12 20:46:19 (12 years ago)
Author:
dubos
Message:

Keyword changes in guide_mod and guided_ncar_mod

Location:
codes/icosagcm/trunk/src
Files:
2 edited

Legend:

Unmodified
Added
Removed

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

    r25 r73  
    1818      CASE ('none') 
    1919       
    20       CASE ('ncar') 
     20      CASE ('dcmip1') 
    2121        CALL init_guided_ncar 
    2222         
    2323      CASE DEFAULT 
    24          
    25          PRINT*,"Bad selector for varaible guided_type >",TRIM(guided_type),"> option are <none>, <ncar>" 
     24         PRINT*,"Bad selector for varaible guided_type >",TRIM(guided_type),"> option are <none>, <dcmip1>" 
    2625         STOP 
    2726    END SELECT  
    … …  
    4342    SELECT CASE(TRIM(guided_type)) 
    4443      CASE ('none') 
    45        
    46       CASE ('ncar') 
     44      CASE ('dcmip1') 
    4745        CALL guided_ncar(tt, f_ps, f_theta_rhodz, f_u, f_q) 
     46      CASE DEFAULT 
     47         PRINT*,"Bad selector for varaible guided_type >",TRIM(guided_type),"> option are <none>, <dcmip1>" 
     48         STOP 
    4849    END SELECT  
    4950   

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

    r25 r73  
    1919    CHARACTER(LEN=255) :: wind 
    2020    wind='deform' 
    21     CALL getin('ncar_adv_wind',wind) 
     21    CALL getin('dcmip1_wind',wind) 
    2222    SELECT CASE(TRIM(wind)) 
    2323    CASE('solid') 
Note: See TracChangeset for help on using the changeset viewer.