Ignore:
Timestamp:
08/06/15 10:51:35 (9 years ago)
Author:
dubos
Message:

Moved output of dyn fields out of caldyn_gcm

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r295 r354  
    11MODULE geopotential_mod 
     2  IMPLICIT NONE 
     3  PRIVATE 
    24 
     5  PUBLIC :: compute_geopotential 
    36CONTAINS 
    47 
    5   SUBROUTINE geopotential(f_phis,f_pks,f_pk,f_theta,f_phi) 
     8  SUBROUTINE geopotential(f_phis,f_pks,f_pk,f_theta,f_phi) ! ORPHAN 
    69  USE icosa 
    7   IMPLICIT NONE 
    810    TYPE(t_field), POINTER :: f_phis(:) 
    911    TYPE(t_field), POINTER :: f_pks(:) 
Note: See TracChangeset for help on using the changeset viewer.