Ignore:
Timestamp:
2020-03-09T11:16:28+01:00 (10 months ago)
Author:
andmirek
Message:

Ticket 2386: fixes in the code

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2020/r12377_ticket2386/src/OCE/IOM/iom.F90

    r12515 r12521  
    478478        i = i + 1; fields(i)%vname="qsr_hc_b";       fields(i)%grid="grid_N_3D" 
    479479        i = i + 1; fields(i)%vname="fraqsr_1lev";    fields(i)%grid="grid_N" 
    480         i = i + 1; fields(i)%vname="greenland_icesheet_mass" 
    481                                                fields(i)%grid="grid_scalar" 
    482         i = i + 1; fields(i)%vname="greenland_icesheet_timelapsed" 
    483                                                fields(i)%grid="grid_scalar" 
    484         i = i + 1; fields(i)%vname="greenland_icesheet_mass_roc" 
    485                                                fields(i)%grid="grid_scalar" 
    486         i = i + 1; fields(i)%vname="antarctica_icesheet_mass" 
    487                                                fields(i)%grid="grid_scalar" 
    488         i = i + 1; fields(i)%vname="antarctica_icesheet_timelapsed" 
    489                                                fields(i)%grid="grid_scalar" 
    490         i = i + 1; fields(i)%vname="antarctica_icesheet_mass_roc" 
    491                                                fields(i)%grid="grid_scalar" 
    492480        i = i + 1; fields(i)%vname="frc_v";          fields(i)%grid="grid_scalar" 
    493481        i = i + 1; fields(i)%vname="frc_t";          fields(i)%grid="grid_scalar" 
     
    549537        i = i + 1; fields(i)%vname="hbli";           fields(i)%grid="grid_N" 
    550538        i = i + 1; fields(i)%vname="wn";             fields(i)%grid="grid_N_3D" 
     539        i = i + 1; fields(i)%vname="fwfisf_cav_b";   fields(i)%grid="grid_N" 
     540        i = i + 1; fields(i)%vname="isf_hc_cav_b";   fields(i)%grid="grid_N" 
     541        i = i + 1; fields(i)%vname="isf_sc_cav_b";   fields(i)%grid="grid_N" 
    551542 
    552543        IF( i-1 > max_rst_fields) THEN 
Note: See TracChangeset for help on using the changeset viewer.