Changeset 698 for codes/icosagcm


Ignore:
Timestamp:
05/11/18 11:18:34 (6 years ago)
Author:
dubos
Message:

devel : fix typo

File:
1 edited

Legend:

Unmodified
Added
Removed

  • codes/icosagcm/devel/src/unstructured/caldyn_unstructured.F90

    r688 r698  
    210210SUBROUTINE gradient(b,grad) BINDC(gradient) 
    211211  FIELD_MASS :: b 
    212   FIELD_u    :: grad 
     212  FIELD_U    :: grad 
    213213  DECLARE_INDICES 
    214214#include "../kernels_unst/gradient.k90" 
    … …  
    217217SUBROUTINE div(u,divu) BINDC(div) 
    218218  FIELD_MASS :: divu 
    219   FIELD_u    :: u 
     219  FIELD_U    :: u 
    220220  DECLARE_INDICES 
    221221  DECLARE_EDGES 
Note: See TracChangeset for help on using the changeset viewer.