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 296 for trunk/NEMO/C1D_SRC/icestp1d.F90 – NEMO

Ignore:
Timestamp:
2005-09-22T12:56:50+02:00 (19 years ago)
Author:
opalod
Message:

nemo_v1_update_009 : CT : remove all 2D array q(:,:) since they are no more used

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/NEMO/C1D_SRC/icestp1d.F90

    r257 r296  
    243243         qsr    (:,:) = 0.e0 
    244244         qt     (:,:) = 0.e0 
    245          q      (:,:) = 0.e0 
    246245         qrp    (:,:) = 0.e0 
    247246         emp    (:,:) = 0.e0 
    … …  
    261260      ! ----------------- 
    262261       
    263       q   (:,:) = fnsolar(:,:) + fsolar(:,:)     ! non solar heat flux + solar flux 
    264       qt  (:,:) = q(:,:) 
     262      qt  (:,:) = fnsolar(:,:) + fsolar(:,:)     ! non solar heat flux + solar flux 
    265263      qsr (:,:) = fsolar(:,:)                     ! solar flux 
    266264       
Note: See TracChangeset for help on using the changeset viewer.