Ignore:
Timestamp:
07/16/12 11:26:23 (12 years ago)
Author:
ymipsl
Message:

Simplify the management of the module.

YM

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r15 r19  
    11MODULE dissip_gcm_mod 
    2   USE genmod 
    3   USE field_mod 
    4   USE transfert_mod 
     2  USE icosa 
    53 
    64  TYPE(t_field),POINTER,SAVE :: f_gradrot(:) 
    … …  
    2624 
    2725  SUBROUTINE allocate_dissip 
    28   USE grid_param 
     26  USE icosa 
    2927  IMPLICIT NONE   
    3028    CALL allocate_field(f_gradrot,field_u,type_real,llm) 
    … …  
    3634  
    3735  SUBROUTINE init_dissip(dt) 
    38   USE domain_mod 
    39   USE dimensions 
    40   USE geometry 
    41   USE metric 
    42   USE ioipsl 
     36  USE icosa 
    4337  USE disvert_mod 
    44   USE write_field 
    4538   
    4639  IMPLICIT NONE 
    … …  
    357350   
    358351  SUBROUTINE dissip(f_ue,f_due,f_ps,f_theta_rhodz,f_dtheta_rhodz) 
    359   USE domain_mod 
    360   USE dimensions 
    361   USE geometry 
    362   USE metric 
    363   USE grid_param 
     352  USE icosa 
    364353  USE theta2theta_rhodz_mod 
    365354  IMPLICIT NONE 
    … …  
    407396 
    408397  SUBROUTINE compute_dissip(ue,due,ps,theta_rhodz,dtheta_rhodz) 
    409   USE domain_mod 
    410   USE dimensions 
    411   USE geometry 
    412   USE metric 
    413   USE grid_param 
     398  USE icosa 
    414399  USE theta2theta_rhodz_mod 
    415400  IMPLICIT NONE 
    … …  
    491476   
    492477  SUBROUTINE gradiv(ue,gradivu_e,ll) 
    493   USE domain_mod 
    494   USE dimensions 
    495   USE geometry 
    496   USE metric 
     478  USE icosa 
    497479  IMPLICIT NONE 
    498480    INTEGER,INTENT(IN)     :: ll 
    … …  
    563545   
    564546  SUBROUTINE divgrad(theta,divgrad_i,ll) 
    565   USE domain_mod 
    566   USE dimensions 
    567   USE geometry 
    568   USE metric 
     547  USE icosa 
    569548  IMPLICIT NONE 
    570549    INTEGER,INTENT(IN)     :: ll 
    … …  
    634613     
    635614  SUBROUTINE gradrot(ue,gradrot_e,ll) 
    636   USE domain_mod 
    637   USE dimensions 
    638   USE geometry 
    639   USE metric 
     615  USE icosa 
    640616  IMPLICIT NONE 
    641617    INTEGER,INTENT(IN)     :: ll 
Note: See TracChangeset for help on using the changeset viewer.