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 12394 for NEMO/branches/UKMO/NEMO_4.0_add_pond_lids_prints/src/ICE/icedyn_rdgrft.F90 – NEMO

Ignore:
Timestamp:
2020-02-18T10:44:02+01:00 (4 years ago)
Author:
dancopsey
Message:

Fix compile and XIOS errors.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/UKMO/NEMO_4.0_add_pond_lids_prints/src/ICE/icedyn_rdgrft.F90

    r12379 r12394  
    500500      REAL(wp)                  ::   airdg1, oirdg1, aprdg1, virdg1, sirdg1 
    501501      REAL(wp)                  ::   airft1, oirft1, aprft1 
    502       REAL(wp), DIMENSION(jpij) ::   airdg2, oirdg2, aprdg2, virdg2, sirdg2, vsrdg, vprdg  ! area etc of new ridges 
    503       REAL(wp), DIMENSION(jpij) ::   airft2, oirft2, aprft2, virft , sirft , vsrft, vprft  ! area etc of rafted ice 
     502      REAL(wp), DIMENSION(jpij) ::   airdg2, oirdg2, aprdg2, virdg2, sirdg2, vsrdg, vprdg, lhprdg  ! area etc of new ridges 
     503      REAL(wp), DIMENSION(jpij) ::   airft2, oirft2, aprft2, virft , sirft , vsrft, vprft, lhprft  ! area etc of rafted ice 
    504504      ! 
    505505      REAL(wp), DIMENSION(jpij) ::   ersw             ! enth of water trapped into ridges 
Note: See TracChangeset for help on using the changeset viewer.