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 6736 for branches/NERC/dev_r3874_FASTNEt/NEMOGCM/NEMO/LIM_SRC_2/thd_ice_2.F90 – NEMO

Ignore:
Timestamp:
2016-06-24T09:50:27+02:00 (8 years ago)
Author:
jamesharle
Message:

FASTNEt code modifications

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/NERC/dev_r3874_FASTNEt/NEMOGCM/NEMO/LIM_SRC_2/thd_ice_2.F90

    r3625 r6736  
    6868      qstbif_1d   ,     &  !:    "                  "      qstoif 
    6969      fbif_1d     ,     &  !:    "                  "      fbif 
    70       rdm_ice_1d  ,     &  !:    "                  "      rdm_ice 
    71       rdq_ice_1d  ,     &  !:    "                  "      rdq_ice 
    72       rdm_snw_1d  ,     &  !:    "                  "      rdm_snw 
    73       rdq_snw_1d  ,     &  !:    "                  "      rdq_snw 
     70      rdmicif_1d  ,     &  !:    "                  "      rdmicif 
     71      rdmsnif_1d  ,     &  !:    "                  "      rdmsnif 
    7472      qlbbq_1d    ,     &  !:    "                  "      qlbsbq 
    7573      dmgwi_1d    ,     &  !:    "                  "      dmgwi 
     
    110108         &      qstbif_1d(jpij),  fbif_1d(jpij),  Stat=ierr(2)) 
    111109         ! 
    112       ALLOCATE( rdm_ice_1d(jpij), rdq_ice_1d(jpij)                  , & 
    113          &      rdm_snw_1d(jpij), rdq_snw_1d(jpij), qlbbq_1d(jpij)  , & 
     110      ALLOCATE( rdmicif_1d(jpij), rdmsnif_1d(jpij), qlbbq_1d(jpij),   & 
    114111         &      dmgwi_1d(jpij)  , dvsbq_1d(jpij)  , rdvomif_1d(jpij), & 
    115112         &      dvbbq_1d(jpij)  , dvlbq_1d(jpij)  , dvnbq_1d(jpij)  , & 
Note: See TracChangeset for help on using the changeset viewer.