New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 3983 for trunk/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90 – NEMO

Ignore:
Timestamp:
2013-07-19T18:22:47+02:00 (11 years ago)
Author:
acc
Message:

Update xml files with missing iceberg (ICB) variables and add new axis definition to iom.F90. The latter requires changes in icb modules to avoid a cyclic dependency

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90

    r3971 r3983  
    3131   USE sbc_oce, ONLY :   nn_fsbc         ! ocean space and time domain 
    3232   USE trc_oce, ONLY :   nn_dttrc        !  !: frequency of step on passive tracers 
     33   USE icb_oce, ONLY :   class_num       !  !: iceberg classes 
    3334   USE domngb          ! ocean space and time domain 
    3435   USE phycst          ! physical constants 
     
    99100      clname = "nemo" 
    100101      IF( TRIM(Agrif_CFixed()) /= '0' )   clname = TRIM(Agrif_CFixed())//"_"//TRIM(clname) 
    101 #if defined key_mpp_mpi 
     102# if defined key_mpp_mpi 
    102103      CALL xios_context_initialize(TRIM(clname), mpi_comm_opa) 
    103 #else 
     104# else 
    104105      CALL xios_context_initialize(TRIM(clname), 0) 
    105 #endif 
     106# endif 
    106107      CALL iom_swap 
    107108 
     
    128129      CALL iom_set_axis_attr( "depthw", gdepw_0 ) 
    129130# if defined key_floats 
    130       CALL iom_set_axis_attr( "nfloat", (ji, ji=1,nfloat) ) 
     131      CALL iom_set_axis_attr( "nfloat", (/ (REAL(ji,wp), ji=1,nfloat) /) ) 
    131132# endif 
     133      CALL iom_set_axis_attr( "icbcla", class_num ) 
    132134       
    133135      ! automatic definitions of some of the xml attributs 
Note: See TracChangeset for help on using the changeset viewer.